From 647ea56704de98a4758ae246085c6f3a51fe34fc Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Sat, 26 Oct 2002 17:18:46 +0000
Subject: [PATCH] fix tag; stub routines

---
 safe_mv/safe_mv | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/safe_mv/safe_mv b/safe_mv/safe_mv
index 6c8b531..8479300 100755
--- a/safe_mv/safe_mv
+++ b/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
+}