Move HLL::Compiler version string out of BUILD and into version() met…

…hod. Eliminate $!version attribute.
Raku · May 31, 2011 · bc9df6c · bc9df6c
1 parent 3599a33
commit bc9df6c
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -15,7 +15,6 @@ class HLL::Compiler {
     has $!commandline_prompt;
     has @!cmdoptions;
     has $!usage;
-    has $!version;
     has $!compiler_progname;
     has $!language;
     has %!config;
@@ -63,9 +62,6 @@ class HLL::Compiler {
             %r = box .IGLOBALS_CONFIG_HASH
         };
         %parrot_config := pir::getinterp()[$config_hash_idx];
-        my $version  := %parrot_config<VERSION>;
-        my $revision := %parrot_config<git_describe> // '(unknown)';
-        $!version    := "This compiler is built with NQP, parrot $version, revision $revision";
         %!config     := pir::new('Hash');
     }
 
@@ -575,7 +571,10 @@ class HLL::Compiler {
     }
 
     method version() {
-        pir::say($!version);
+        my $version := %!config<version>;
+        my $parver  := %parrot_config<VERSION>;
+        my $parrev  := %parrot_config<git_describe> // '(unknown)';
+        pir::say("This is $!language version $version built on parrot $parver revision $parrev");
         pir::exit__vi(0);
     }