Fix MM doc's use of "SUPER::"

[perl5.git] / eg / myrup

diff --git a/eg/myrup b/eg/myrup
index c32c99c..2cbdf75 100644 (file)
--- a/eg/myrup
+++ b/eg/myrup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: myrup,v 2.0 88/06/05 00:16:51 root Exp $
+# $RCSfile: myrup,v $$Revision: 4.1 $$Date: 92/08/07 17:20:26 $
 
 # This was a customization of ruptime requested by someone here who wanted
 # to be able to find the least loaded machine easily.  It uses the
@@ -9,7 +9,7 @@
 
 print "node    load (u)\n------- --------\n";
 
-open(ghosts,'/etc/ghosts') || die "Can't open /etc/ghosts";
+open(ghosts,'/etc/ghosts') || die "Can't open /etc/ghosts: $!";
 line: while (<ghosts>) {
     next line if /^#/;
     next line if /^$/;
@@ -18,7 +18,7 @@ line: while (<ghosts>) {
     $wanted{$host} = 1;
 }
 
-open(ruptime,'ruptime|') || die "Can't run ruptime";
+open(ruptime,'ruptime|') || die "Can't run ruptime: $!";
 open(sort,'|sort +1n');
 
 while (<ruptime>) {