This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The JAPHs that use $* won't work anymore.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 12 Nov 2007 16:45:20 +0000 (16:45 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 12 Nov 2007 16:45:20 +0000 (16:45 +0000)
p4raw-id: //depot/perl@32285

t/japh/abigail.t

index 4510d45..35f8571 100644 (file)
@@ -284,14 +284,14 @@ $_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
 for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
 print chr 0x$& and q
 qq}*excess********}
-SKIP_OS: qnx
+SKIP: $* was removed.
 
 #######  Funky loop 3.
 $_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
 for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
 print chr 0x$& and q
 qq}*excess********}
-SKIP_OS: qnx
+SKIP: $* was removed.
 
 #######  Funky loop 4.
 $_ = q ?4a75737420616e6f74686572205065726c204861636b65720as?;??;