YA resync with mainstem, including VMS patches from others

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

diff --git a/eg/scan/scan_passwd b/eg/scan/scan_passwd
index 62ef1e7..50f6fc8 100644 (file)
--- a/eg/scan/scan_passwd
+++ b/eg/scan/scan_passwd
@@ -1,10 +1,10 @@
 #!/usr/bin/perl
 
-# $Header: scan_passwd,v 2.0 88/06/05 00:17:49 root Exp $
+# $RCSfile: scan_passwd,v $$Revision: 4.1 $$Date: 92/08/07 17:20:38 $
 
 # This scans passwd file for security holes.
 
-open(Pass,'/etc/passwd') || die "Can't open passwd file";
+open(Pass,'/etc/passwd') || die "Can't open passwd file: $!\n";
 # $dotriv = (`date` =~ /^Mon/);
 $dotriv = 1;