Return to delRS.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.1, 2001/12/04 01:49:03 | version 1.2, 2001/12/21 11:54:37 |
---|---|
Line 33 if ($#ARGV<2) | Line 33 if ($#ARGV<2) |
my($dumpname, $tablename, @names)=@ARGV; | my($dumpname, $tablename, @names)=@ARGV; |
open (TABLE, $tablename) or die "0: Can not open ". $tablenamename; | open (TABLE, $tablename) or die "0: Can not open ". $tablename; |
open (DUMP, $dumpname) or die "0: Can not open ". $dumpname; | open (DUMP, $dumpname) or die "0: Can not open ". $dumpname; |