This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test C< ()=() >
authorChip Salzenberg <chip@atlantic.net>
Thu, 26 Dec 1996 02:07:36 +0000 (14:07 +1200)
committerChip Salzenberg <chip@atlantic.net>
Fri, 27 Dec 1996 18:22:00 +0000 (06:22 +1200)
t/op/misc.t

index 024a514..5bcc6a0 100755 (executable)
@@ -37,6 +37,8 @@ for (@prgs){
 }
 
 __END__
+()=()
+########
 $cusp = ~0 ^ (~0 >> 1);
 $, = " ";
 print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, ($cusp + 1) % 8, "!\n";