detypo
Jarkko Hietaniemi [Fri, 3 Mar 2000 01:50:07 +0000 (01:50 +0000)]
p4raw-id: //depot/cfgperl@5460

t/op/pack.t

index 2c45fdd..691a1a4 100755 (executable)
@@ -20,8 +20,8 @@ print ($#ary == $#ary2 ? "ok 1\n" : "not ok 1\n");
 $out1=join(':',@ary);
 $out2=join(':',@ary2);
 # Using long double NVs may introduce greater accuracy than wanted.
-$out1 =~ s/:9\.87654321097999\d*:/:9.87654321098:/,
-$out2 =~ s/:9\.87654321097999\d*:/:9.87654321098:/
+$out1 =~ s/:9\.87654321097999\d*:/:9.87654321098:/;
+   $out2 =~ s/:9\.87654321097999\d*:/:9.87654321098:/;
 print ($out1 eq $out2? "ok 2\n" : "not ok 2\n");
 
 print ($foo =~ /def/ ? "ok 3\n" : "not ok 3\n");