Avoid creating GV with NULL name when vivifying nameless scalars.

[p5sagit/p5-mst-13.2.git] / eg / scan / scan_suid

diff --git a/eg/scan/scan_suid b/eg/scan/scan_suid
index 4f62705..c10aa58 100644 (file)
--- a/eg/scan/scan_suid
+++ b/eg/scan/scan_suid
@@ -1,10 +1,10 @@
 #!/usr/bin/perl -P
 
-# $Header: scan_suid,v 2.0 88/06/05 00:17:54 root Exp $
+# $RCSfile: scan_suid,v $$Revision: 4.1 $$Date: 92/08/07 17:20:43 $
 
 # Look for new setuid root files.
 
-chdir '/usr/adm/private/memories' || die "Can't cd.";
+chdir '/usr/adm/private/memories' || die "Can't cd to memories: $!\n";
 
 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
    $blksize,$blocks) = stat('oldsuid');