fix tag; stub routines

safe_mv/safe_mv

@@ -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
+}