From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 3 Mar 2000 01:51:53 +0000 (+0000)
Subject: cosmetics
X-Git-Tag: accepted/trunk/20130322.191538~34817^2~239
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c4ab3e649c1a1880e275541c3783fe079ee18d91;p=platform%2Fupstream%2Fperl.git

cosmetics

p4raw-id: //depot/cfgperl@5461
---

diff --git a/t/op/pack.t b/t/op/pack.t
index 691a1a4..09c566e 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");