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

fix prototypes

Browse source
This commit is contained in:
Ward Wouts 2002-11-11 18:56:21 +00:00
parent 942ef34fb9
commit 930438eb80
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
safe_mv/safe_mv
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# $Dwarf: safe_mv,v 1.4 2002/10/26 17:18:46 ward Exp $ # $Dwarf: safe_mv,v 1.5 2002/10/26 20:20:00 ward Exp $
# $Source$ # $Source$
# #
@ -38,7 +38,7 @@ sub process {
} }
} }
sub compare($source, $target) { sub compare($$) {
my ($source_size, $target_size); my ($source_size, $target_size);
my (@source_stat, @target_stat); my (@source_stat, @target_stat);
print "Comparing... "; print "Comparing... ";
@ -68,7 +68,7 @@ sub compare($source, $target) {
} }
} }
sub calc_md5($file) { sub calc_md5($) {
my ($file, $digest); my ($file, $digest);
$file = shift; $file = shift;
$md5 = Digest::MD5->new; $md5 = Digest::MD5->new;