YA resync with mainstem, including VMS patches from others

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

diff --git a/eg/scan/scan_df b/eg/scan/scan_df
index ca31642..c221cdc 100644 (file)
--- a/eg/scan/scan_df
+++ b/eg/scan/scan_df
@@ -1,10 +1,10 @@
 #!/usr/bin/perl -P
 
-# $Header: scan_df,v 2.0 88/06/05 00:17:56 root Exp $
+# $RCSfile: scan_df,v $$Revision: 4.1 $$Date: 92/08/07 17:20:33 $
 
 # This report points out filesystems that are in danger of overflowing.
 
-(chdir '/usr/adm/private/memories') || die "Can't cd.";
+(chdir '/usr/adm/private/memories') || die "Can't cd to memories: $!\n";
 `df >newdf`;
 open(Df, 'olddf');