diff --git a/safe_mv/safe_mv b/safe_mv/safe_mv
index 5c1010e..45b5220 100755
--- a/safe_mv/safe_mv
+++ b/safe_mv/safe_mv
@@ -1,6 +1,6 @@
 #!/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$
 
 #
@@ -38,7 +38,7 @@ sub process {
 	}
 }
 
-sub compare($source, $target) {
+sub compare($$) {
 	my ($source_size, $target_size);
 	my (@source_stat, @target_stat);
 	print "Comparing... ";
@@ -68,7 +68,7 @@ sub compare($source, $target) {
 	}
 }
 
-sub calc_md5($file) {
+sub calc_md5($) {
 	my ($file, $digest);
 	$file = shift;
 	$md5 = Digest::MD5->new;