Change 19647 by [EMAIL PROTECTED] on 2003/05/31 11:46:52
Subject: Re: [perl #22372] [PATCH] sv_chop() broken
From: Enache Adrian <[EMAIL PROTECTED]>
Date: Sat, 31 May 2003 14:18:11 +0300
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/write.t#26 edit
Differences ...
==== //depot/perl/t/op/write.t#26 (xtext) ====
Index: perl/t/op/write.t
--- perl/t/op/write.t#25~19645~ Fri May 30 22:37:10 2003
+++ perl/t/op/write.t Sat May 31 04:46:52 2003
@@ -272,7 +272,7 @@
{ print "not ok 11\n"; }
{
- my $el;
+ our $el;
format STDOUT =
ok ^<<<<<<<<<<<<<<~~ # sv_chop() naze
$el
@@ -287,7 +287,7 @@
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);
}
End of Patch.
