YA resync with mainstem, including VMS patches from others

[p5sagit/p5-mst-13.2.git] / eg / van / vanish

diff --git a/eg/van/vanish b/eg/van/vanish
index b665e7c..09b9679 100644 (file)
--- 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 $
+# $RCSfile: vanish,v $$Revision: 4.1 $$Date: 92/08/07 17:20:54 $
 
 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";
     }
 }