Lines Matching refs:error

135           || &error ("Couldn't wipe out $workpath\n");
139 mkdir ($workpath, 0777) || &error ("Couldn't mkdir $workpath: $!\n");
144 &error ("Failed to find $scriptpath containing perl test scripts.\n");
158 || &error ("Couldn't mkdir $workpath/$dir: $!\n");
166 || &error ("Couldn't opendir $scriptpath: $!\n");
174 || &error ("Couldn't mkdir $workpath/$dir: $!\n");
176 || &error ("Couldn't opendir $scriptpath/$dir: $!\n");
189 &error ("\nNo tests in $scriptpath, and none were specified.\n");
246 mkdir (".ostest", 0777) || &error ("Couldn't create .ostest: $!\n", 1);
248 chdir (".ostest") || &error ("Couldn't chdir to .ostest: $!\n", 1);
260 # to not get ugly error messages if uname can't be found.
281 chdir ("..") || &error ("Couldn't chdir to ..: $!\n", 1);
283 rmdir (".ostest") || &error ("Couldn't rmdir .ostest: $!\n", 1);
624 sub error
646 # For make, get rid of any time skew error before comparing--too bad this
716 $code == -2 || &error ("adoh death\n", 1);
721 || &error ("ado: $! duping STDOUT\n", 1);
723 || &error ("ado: $! duping STDERR\n", 1);
726 || &error ("ado: $filename: $!\n", 1);
728 || &error ("ado: $filename: $!\n", 1);
743 $code == -2 || &error ("ddoh death\n", 1);
749 &error ("default output stack has flown under!\n", 1);
756 || &error ("ddo: $! duping STDOUT\n", 1);
758 || &error ("ddo: $! duping STDERR\n", 1);
761 || &error ("ddo: $! closing SCSDOSout\n", 1);
763 || &error ("ddo: $! closing SAVEDOSerr\n", 1);
884 # || &error ("Couldn't touch $file: $!\n", 1);
903 || &error("Couldn't touch $file: $!\n", 1);
928 open (CF, "> $filename") || &error ("Couldn't open $filename: $!\n", 1);
952 mkdir ($basedir, 0777) || &error ("Couldn't mkdir $basedir: $!\n", 1);
959 || &error ("Couldn't mkdir $basedir/$path: $!\n", 1);
968 || &error ("Couldn't symlink $basedir/$path -> $basedir/$1: $!\n", 1);
972 &error ("Bogus dirtree type: \"$dirtree{$path}\"\n", 1);
999 opendir (DIR, $basedir) || &error ("Couldn't open $basedir: $!\n", 1);
1103 &error ("Bogus dirtree type: \"$dirtree{$path}\"\n", 1);