[PATCH] Re: $\ very broken

From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Date: Wed, 28 Nov 2001 22:33:08 +0100
Message-ID: <20011128223308.E732@rafael>

Subject: Re: [PATCH] Re: $\ very broken
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 28 Nov 2001 22:29:00 +0000
Message-ID: <20011128222859.K37621@plum.flirble.org>

p4raw-id: //depot/perl@13345

diff --git a/mg.c b/mg.c
index 6350690..84a63d0 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -781,6 +781,8 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
     case ',':
        break;
     case '\\':
+       if (PL_ors_sv)
+           sv_setpv(sv,SvPVX(PL_ors_sv));
        break;
     case '#':
        sv_setpv(sv,PL_ofmt);

diff --git a/t/op/ref.t b/t/op/ref.t
index 8ae9042..05f3b84 100755 (executable)
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -1,6 +1,8 @@
 #!./perl
 
-print "1..61\n";
+print "1..62\n";
+
+require 'test.pl';
 
 # Test glob operations.
 
@@ -295,9 +297,22 @@ sub x::DESTROY {print "ok ", 54 + shift->[0], "\n"}
 }
 
 
+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;