ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix tag; stub routines

Browse source
This commit is contained in:
Ward Wouts 2002-10-26 17:18:46 +00:00
parent 936097c452
commit 647ea56704
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
safe_mv/safe_mv
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl -w
# $Dwarf$
# $Dwarf: safe_mv,v 1.3 2002/10/24 11:06:06 ward Exp $
# $Source$
#
@ -15,6 +15,7 @@
use File::Copy;
use Digest::MD5 qw(md5);
use Getopt::Long;
$DEBUG = 0;
@ -84,3 +85,14 @@ sub calc_md5($file) {
close(FILE);
return $digest;
}
sub cmdline {
}
sub help {
print <<EOT;
$0 [options] <files> <destination>
EOT
}