summaryrefslogtreecommitdiff
path: root/eg/van
diff options
context:
space:
mode:
Diffstat (limited to 'eg/van')
-rw-r--r--eg/van/empty4
-rw-r--r--eg/van/unvanish4
-rw-r--r--eg/van/vanexp2
-rw-r--r--eg/van/vanish4
4 files changed, 7 insertions, 7 deletions
diff --git a/eg/van/empty b/eg/van/empty
index 11a55583e1..0f3d9e321f 100644
--- a/eg/van/empty
+++ b/eg/van/empty
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Header: empty,v 2.0 88/06/05 00:17:39 root Exp $
+# $Header: empty,v 3.0 89/10/18 15:16:28 lwall Locked $
# This script empties a trashcan.
@@ -12,7 +12,7 @@ chop($pwd = `pwd`);
dir: foreach $dir (@ARGV) {
unless (chdir $dir) {
- print stderr "Can't find directory $dir\n";
+ print stderr "Can't find directory $dir: $!\n";
next dir;
}
if ($recursive) {
diff --git a/eg/van/unvanish b/eg/van/unvanish
index 4a83c81232..5c0dab07a2 100644
--- a/eg/van/unvanish
+++ b/eg/van/unvanish
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Header: unvanish,v 2.0 88/06/05 00:17:30 root Exp $
+# $Header: unvanish,v 3.0 89/10/18 15:16:35 lwall Locked $
sub it {
if ($olddir ne '.') {
@@ -18,7 +18,7 @@ sub it {
}
print `mv $startfiles$filelist..$force`;
if ($olddir ne '.') {
- (chdir $pwd) || die "Can't get back to original directory: $pwd";
+ (chdir $pwd) || die "Can't get back to original directory $pwd: $!\n";
}
}
diff --git a/eg/van/vanexp b/eg/van/vanexp
index 29b42e8edf..ef31882e22 100644
--- a/eg/van/vanexp
+++ b/eg/van/vanexp
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Header: vanexp,v 2.0 88/06/05 00:17:34 root Exp $
+# $Header: vanexp,v 3.0 89/10/18 15:16:41 lwall Locked $
# This is for running from a find at night to expire old .deleteds
diff --git a/eg/van/vanish b/eg/van/vanish
index b665e7c8d9..e49c0528c7 100644
--- a/eg/van/vanish
+++ b/eg/van/vanish
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Header: vanish,v 2.0 88/06/05 00:17:36 root Exp $
+# $Header: vanish,v 3.0 89/10/18 15:16:46 lwall Locked $
sub it {
if ($olddir ne '.') {
@@ -20,7 +20,7 @@ sub it {
print `/bin/mv $startfiles$filelist .deleted$force`;
}
if ($olddir ne '.') {
- (chdir $pwd) || die "Can't get back to original directory: $pwd";
+ (chdir $pwd) || die "Can't get back to original directory $pwd: $!\n";
}
}