From 658bbd66c2d2a7c48f06bb97a9c36f4970ca2011 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 3 Mar 2000 01:50:07 +0000 Subject: [PATCH] detypo p4raw-id: //depot/cfgperl@5460 --- t/op/pack.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/op/pack.t b/t/op/pack.t index 2c45fdd..691a1a4 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -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"); -- 2.7.4