From 57264c72f102477ea3e4127216d30f806e888d68 Mon Sep 17 00:00:00 2001
From: Steve Mynott <steve.mynott@gmail.com>
Date: Fri, 11 Aug 2017 16:04:00 +0100
Subject: patch perl6 -v to display "Rakudo Star" star issue #7

---
 patches/star-ver.patch | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 patches/star-ver.patch

(limited to 'patches/star-ver.patch')

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);
+     }
-- 
cgit v1.1