report parrot revision in --version output

rakudo · Jul 16, 2010 · d0df858 · d0df858
1 parent 0b3a0ec
commit d0df858
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/Perl6/Compiler.pir b/src/Perl6/Compiler.pir
@@ -224,9 +224,16 @@ Perl6::Compiler - Perl6 compiler
 .end
 
 .sub 'version' :method
+    .local pmc interp, config, rev
+    interp = getinterp
+    config = interp[.IGLOBALS_CONFIG_HASH]
+    rev    = config['revision']
+
     say ''
     print 'This is Rakudo Perl 6, version '
-    say .RAKUDO_VERSION
+    print .RAKUDO_VERSION
+    print ' built on parrot r'
+    say rev
     say ''
     say 'Copyright 2008-2010, The Perl Foundation'
     say ''