Use `f', not `x' as temp. file name to avoid warnings from perl5.004.

diff --git a/tests/md5sum/basic-1 b/tests/md5sum/basic-1
index 2cc6a3e8157f45c4767295855ea87850fad6fc94..f38ba18683e0ddd5775ae6fa3c47aa34a5fc6704 100755 (executable)
--- a/tests/md5sum/basic-1
+++ b/tests/md5sum/basic-1
@@ -23,17 +23,17 @@ my $degenerate = "d41d8cd98f00b204e9800998ecf8427e";
 
 my @Tests =
     (
-     ['1', {IN=> {x=> ''}},    {OUT=>"$degenerate  x\n"}],
-     ['2', {IN=> {x=> 'a'}},   {OUT=>"0cc175b9c0f1b6a831c399e269772661  x\n"}],
-     ['3', {IN=> {x=> 'abc'}}, {OUT=>"900150983cd24fb0d6963f7d28e17f72  x\n"}],
-     ['4', {IN=> {x=> 'message digest'}},
-                               {OUT=>"f96b697d7cb7938d525a2f31aaf161d0  x\n"}],
-     ['5', {IN=> {x=> 'abcdefghijklmnopqrstuvwxyz'}},
-                               {OUT=>"c3fcd3d76192e4007dfb496cca67e13b  x\n"}],
-     ['6', {IN=> {x=> join ('', 'A'..'Z', 'a'..'z', '0'..'9')}},
-                               {OUT=>"d174ab98d277d9f5a5611c2c9f419d9f  x\n"}],
-     ['7', {IN=> {x=> '1234567890' x 8}},
-                               {OUT=>"57edf4a22be3c955ac49da2e2107b67a  x\n"}],
+     ['1', {IN=> {f=> ''}},    {OUT=>"$degenerate  f\n"}],
+     ['2', {IN=> {f=> 'a'}},   {OUT=>"0cc175b9c0f1b6a831c399e269772661  f\n"}],
+     ['3', {IN=> {f=> 'abc'}}, {OUT=>"900150983cd24fb0d6963f7d28e17f72  f\n"}],
+     ['4', {IN=> {f=> 'message digest'}},
+                               {OUT=>"f96b697d7cb7938d525a2f31aaf161d0  f\n"}],
+     ['5', {IN=> {f=> 'abcdefghijklmnopqrstuvwxyz'}},
+                               {OUT=>"c3fcd3d76192e4007dfb496cca67e13b  f\n"}],
+     ['6', {IN=> {f=> join ('', 'A'..'Z', 'a'..'z', '0'..'9')}},
+                               {OUT=>"d174ab98d277d9f5a5611c2c9f419d9f  f\n"}],
+     ['7', {IN=> {f=> '1234567890' x 8}},
+                               {OUT=>"57edf4a22be3c955ac49da2e2107b67a  f\n"}],
      ['backslash', {IN=> {"\\.foo"=> ''}},
                                {OUT=>"\\$degenerate  \\\\.foo\n"}],
      ['newline', {IN=> {"a\nb"=> ''}},