Avoid creating GV with NULL name when vivifying nameless scalars.

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

diff --git a/eg/van/empty b/eg/van/empty
index 11a5558..d699319 100644 (file)
--- 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 $
+# $RCSfile: empty,v $$Revision: 4.1 $$Date: 92/08/07 17:20:50 $
 
 # 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) {