OSDN Git Service

s/chop/chomp/g
authorNARUSE, Yui <naruse@users.sourceforge.jp>
Mon, 8 Nov 2004 22:52:17 +0000 (22:52 +0000)
committerNARUSE, Yui <naruse@users.sourceforge.jp>
Mon, 8 Nov 2004 22:52:17 +0000 (22:52 +0000)
make_test.pl

index e743ad4..627983b 100644 (file)
@@ -4,10 +4,10 @@ while ( <test_data/*.cmd> ) {
     $test = $file; $test =~ s/\.cmd$//;
     $out = $test.".out"; $out = `cat $out`;
     $in = $test.".in"; $in = `cat $in`;
     $test = $file; $test =~ s/\.cmd$//;
     $out = $test.".out"; $out = `cat $out`;
     $in = $test.".in"; $in = `cat $in`;
-    $opt = `cat $file`; chop($opt);
+    $opt = `cat $file`; chomp($opt);
 
 
-    $inpack = pack('u',$in); chop($inpack);
-    $outpack = pack('u',$out); chop($outpack);
+    $inpack = pack('u',$in); chomp($inpack);
+    $outpack = pack('u',$out); chomp($outpack);
 
 print << "EOFEOF";
 # $test
 
 print << "EOFEOF";
 # $test