patch perl6 -v to display "Rakudo Star" star issue #7

1 files changed, 16 insertions, 0 deletions

diff --git a/patches/star-ver.patch b/patches/star-ver.patch
new file mode 100644
index 0000000..c104ee6
--- /dev/null
+++ b/patches/star-ver.patch
@@ -0,0 +1,16 @@
+--- ../nqp/src/HLL/Compiler.nqp
++++ ../nqp/src/HLL/Compiler.nqp
+@@ -557,11 +557,11 @@ class HLL::Compiler does HLL::Backend::Default {
+         my $implementation := self.implementation();
+         my $language_name  := self.language_name();
+         if nqp::can(self, 'language_version') {
+-            nqp::say("This is $implementation version $version built on $backver\n" ~
++            nqp::say("This is $implementation Star version $version built on $backver\n" ~
+                 "implementing $language_name " ~ self.language_version() ~ ".");
+         }
+         else {
+-            nqp::say("This is $implementation version $version built on $backver");
++            nqp::say("This is $implementation Star version $version built on $backver");
+         }
+         nqp::exit(0);
+     }