38 lines
474 B
Perl
38 lines
474 B
Perl
|
$HadOver=0;
|
||
|
|
|
||
|
|
while (<>)
|
||
|
|
{
|
||
|
|
chop $_;
|
||
|
|
$File=$_;
|
||
|
|
|
||
|
|
if ($File ne "")
|
||
|
|
{
|
||
|
|
local($INFILE)=$File;
|
||
|
|
binmode($INFILE);
|
||
|
|
|
||
|
|
open(INFILE) || die "Can't open in file $INFILE; $!";
|
||
|
|
binmode INFILE;
|
||
|
|
$Size= -s INFILE;
|
||
|
|
|
||
|
|
$buf='';
|
||
|
|
read(INFILE,$buf,$Size);
|
||
|
|
|
||
|
|
if ($buf=~/_GLOBAL_\.[ID]/)
|
||
|
|
{
|
||
|
|
print "Construction code in $File\n";
|
||
|
|
$HadOver=1;
|
||
|
|
}
|
||
|
|
|
||
|
|
close(INFILE);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($HadOver == 0)
|
||
|
|
{
|
||
|
|
print "No errors";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
print "Error: Constructors in overlay code";
|
||
|
|
}
|