diff options
author | Steve Mynott <steve.mynott@gmail.com> | 2017-08-11 16:04:00 +0100 |
---|---|---|
committer | Steve Mynott <steve.mynott@gmail.com> | 2017-08-11 16:04:00 +0100 |
commit | 57264c72f102477ea3e4127216d30f806e888d68 (patch) | |
tree | eb8a3b087babe680918fe5e00fcf6b19433cc5f3 /patches/star-ver.patch | |
parent | 1e7ee75684e04e8c90baa490ebfcc7d8098bb984 (diff) |
patch perl6 -v to display "Rakudo Star" star issue #7
Diffstat (limited to 'patches/star-ver.patch')
-rw-r--r-- | patches/star-ver.patch | 16 |
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); + } |