Avoid creating GV with NULL name when vivifying nameless scalars.

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

diff --git a/eg/van/unvanish b/eg/van/unvanish
index 4a83c81..acb1603 100644 (file)
--- 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 $
+# $RCSfile: unvanish,v $$Revision: 4.1 $$Date: 92/08/07 17:20:52 $
 
 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";
     }
 }