1 files changed, 0 insertions, 45 deletions
diff --git a/contrib/perl5/eg/van/empty b/contrib/perl5/eg/van/empty
deleted file mode 100644
index d699319..0000000
--- a/contrib/perl5/eg/van/empty
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl
-
-# $RCSfile: empty,v $$Revision: 4.1 $$Date: 92/08/07 17:20:50 $
-
-# This script empties a trashcan.
-
-$recursive = shift if $ARGV[0] eq '-r';
-
-@ARGV = '.' if $#ARGV < 0;
-
-chop($pwd = `pwd`);
-
-dir: foreach $dir (@ARGV) {
-    unless (chdir $dir) {
-	print stderr "Can't find directory $dir: $!\n";
-	next dir;
-    }
-    if ($recursive) {
-	do cmd('find . -name .deleted -exec /bin/rm -rf {} ;');
-    }
-    else {
-	if (-d '.deleted') {
-	    do cmd('rm -rf .deleted');
-	}
-	else {
-	    if ($dir eq '.' && $pwd =~ m|/\.deleted$|) {
-		chdir '..';
-		do cmd('rm -rf .deleted');
-	    }
-	    else {
-		print stderr "No trashcan found in directory $dir\n";
-	    }
-	}
-    }
-}
-continue {
-    chdir $pwd;
-}
-
-# force direct execution with no shell
-
-sub cmd {
-    system split(' ',join(' ',@_));
-}
-