mirror of
https://github.com/nillerusr/source-engine.git
synced 2024-12-25 23:56:50 +00:00
14 lines
280 B
Perl
14 lines
280 B
Perl
|
#! perl
|
||
|
|
$errfname="//fileserver/user/cgreen/force_an_error.txt";
|
||
|
|
|
||
|
|
if (-e $errfname )
|
||
|
|
{
|
||
|
|
unlink $errfname;
|
||
|
|
open(ERROUT,">errors.txt") || die "huh - can't write";
|
||
|
|
{
|
||
|
|
print ERROUT "This is not an error - its just a test of the error script system.\n";
|
||
|
|
close ERROUT;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|