Change 13345: [PATCH] Re: $\ very broken

[Jarkko Hietaniemi]

Change 13345 by jhi@alpha on 2001/11/29 00:11:56

        Subject: [PATCH] Re: $\ very broken
        From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
        Date: Wed, 28 Nov 2001 22:33:08 +0100                 
        Message-ID: <20011128223308.E732@rafael>   
        
        Subject: Re: [PATCH] Re: $\ very broken     
        From: Nicholas Clark <[EMAIL PROTECTED]>
        Date: Wed, 28 Nov 2001 22:29:00 +0000                 
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/mg.c#212 edit
.... //depot/perl/t/op/ref.t#12 edit

Differences ...

==== //depot/perl/mg.c#212 (text) ====
Index: perl/mg.c
--- perl/mg.c.~1~       Wed Nov 28 17:15:05 2001
+++ perl/mg.c   Wed Nov 28 17:15:05 2001
@@ -781,6 +781,8 @@
     case ',':
        break;
     case '\\':
+       if (PL_ors_sv)
+           sv_setpv(sv,SvPVX(PL_ors_sv));
        break;
     case '#':
        sv_setpv(sv,PL_ofmt);

==== //depot/perl/t/op/ref.t#12 (xtext) ====
Index: perl/t/op/ref.t
--- perl/t/op/ref.t.~1~ Wed Nov 28 17:15:05 2001
+++ perl/t/op/ref.t     Wed Nov 28 17:15:05 2001
@@ -1,6 +1,8 @@
 #!./perl
 
-print "1..61\n";
+print "1..62\n";
+
+require 'test.pl';
 
 # Test glob operations.
 
@@ -295,9 +297,22 @@
 }
 
 
+my $result = runperl (switches=>['-l'],
+                      prog=> 'print 1; print qq-*$\*-;print 1;');
+my $expect = "1\n*\n*\n1\n";
+if ($result eq $expect) {
+  print "ok 59\n";
+} else {
+  print "not ok 59\n";
+  foreach ($expect, $result) {
+    s/\n/\\n/gs;
+  }
+  print "# expected \"$expect\", got \"$result\"\n";
+}
+
 # test global destruction
 
-my $test = 59;
+my $test = 60;
 my $test1 = $test + 1;
 my $test2 = $test + 2;
 
End of Patch.