From: Adrian M. Enache <enache@rdslink.ro>
Date: Sat, 31 May 2003 14:18:11 +0000 (+0300)
Subject: Re: [perl #22372] [PATCH] sv_chop() broken
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4e2b39b0e29c0711e1ecb2bb4e8c6330db85a35;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #22372] [PATCH] sv_chop() broken
Message-ID: <20030531111811.GA1240@ratsnest.hole>

p4raw-id: //depot/perl@19647
---

diff --git a/t/op/write.t b/t/op/write.t
index c2d7755..c920e70 100755
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -272,7 +272,7 @@ else
     { print "not ok 11\n"; }
 
 {
-    my $el;
+    our $el;
     format STDOUT =
 ok ^<<<<<<<<<<<<<<~~ # sv_chop() naze
 $el
@@ -287,7 +287,7 @@ $el
 
 if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'dos' || $^O eq 'MacOS' ||
     ($^O eq 'os2' and not eval '$OS2::can_fork')) {
-  foreach (12..47) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
+  foreach (13..48) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
   exit(0);
 }