diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-03 01:51:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-03 01:51:53 +0000 |
| commit | c4ab3e649c1a1880e275541c3783fe079ee18d91 (patch) | |
| tree | 0f368824ec277f9cd59005f883edb5b4cbffef2f | |
| parent | 658bbd66c2d2a7c48f06bb97a9c36f4970ca2011 (diff) | |
| download | perl-c4ab3e649c1a1880e275541c3783fe079ee18d91.tar.gz | |
cosmetics
p4raw-id: //depot/cfgperl@5461
| -rwxr-xr-x | t/op/pack.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 691a1a4096..09c566e92f 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -21,7 +21,7 @@ $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:/; +$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"); |