Permalink
Browse files

fix $*PROGRAM_NAME for one-liners

Closes RT #113078
  • Loading branch information...
1 parent 8d6dbe6 commit 5274a376c63c876b79cdcd4a06213a7b4294fb84 @moritz moritz committed May 25, 2012
Showing with 2 additions and 5 deletions.
  1. +1 −4 src/core/terms.pm
  2. +1 −1 tools/build/NQP_REVISION
View
@@ -98,10 +98,7 @@ sub term:<time>() { nqp::p6box_i(pir::time__I()) }
nqp::bindkey(pir::get_who__PP(PROCESS), '$EXECUTABLE_NAME', $EXECUTABLE_NAME);
my Mu $comp := pir::compreg__Ps('perl6');
- my $PROGRAM_NAME =
- nqp::p6box_s(
- $comp.cli-arguments()[0]
- ) || 'interactive';
+ my $PROGRAM_NAME = $comp.user-progname();
nqp::bindkey(pir::get_who__PP(PROCESS), '$PROGRAM_NAME', $PROGRAM_NAME);
}
@@ -1 +1 @@
-2012.05-3-gc4cc06a
+2012.05-4-g64c1b3c

0 comments on commit 5274a37

Please sign in to comment.