added helper for $/

rakudo-p5 · May 13, 2013 · 2855598 · 2855598
1 parent 0f33a0b
commit 2855598
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/lib/Perl5/Actions.nqp b/lib/Perl5/Actions.nqp
@@ -1296,6 +1296,7 @@ class Perl5::Actions is HLL::Actions does STDActions {
 
     method special_variable:sym<$/>($/) {
         $V5DEBUG && say("special_variable:sym<\$/>($/)");
+        make QAST::Op.new( :op('call'), :name('&INPUT_RECORD_SEPARATOR') )
     }
 
     method special_variable:sym<$~>($/) {

diff --git a/lib/Perl5/Terms.pm b/lib/Perl5/Terms.pm
@@ -1,6 +1,8 @@
 
 class Perl5::Terms;
 
+my $INPUT_RECORD_SEPARATOR = 7;
+sub INPUT_RECORD_SEPARATOR is export is rw { $INPUT_RECORD_SEPARATOR }
 
 multi sub chop()          is export { chop(CALLER::<$_>) }
 multi sub chop(*@s is rw) is export {
@@ -34,7 +36,7 @@ multi sub open( $fh is rw, $m, $expr, *@list ) is export {
     $fh = $expr.IO.open( :r($m eq '<'), :w($m eq '>'), :a($m eq '>>'), :p($m eq '|'), :bin(0) );
 }
 
-multi sub print( :$fh, *@text ) is export { ($fh || $*OUT).print( @text.join('') ) }
+multi sub print( *@text ) is export { $*OUT.print( @text.join('') ) }
 
 sub close( IO::Handle $fh ) is export { $fh.close }