Changeset 79
Legend:
- Unmodified
- Added
- Removed
-
shepherd
r77 r79 110 110 # --------------------------------------------------------------------------- 111 111 112 $| = 1; 113 112 114 print ucfirst($progname) . " v$version\n\n"; 113 115 #print "Cwd: $CWD.\n"; … … 1235 1237 if ($@ and !$opt->{configure}) 1236 1238 { 1237 die "\nError in $name file!\nDetails:\n$@"; 1239 warn "\nERROR in $name file! Details:\n$@"; 1240 print "You may wish to CTRL-C and fix this.\n\nContinuing anyway in:"; 1241 foreach (1 .. 5) 1242 { 1243 print " " . (6 - $_); 1244 sleep 1; 1245 } 1246 print "\n"; 1238 1247 } 1239 1248 }
