+#!/usr/bin/perl
+
use strict;
use warnings;
use Digest::SHA;
{
return { a => 'inglobal', b => 'inglobalfunc' };
}
+ if($op =~ /^INVALID#/)
+ {
+ return { isinvalid => 1 };
+ }
return { a => 'inglobal', b => 'inglobal', c => 'outglobal' };
}
}
}
+ if($c->{isinvalid})
+ {
+ ++$warned{$ip}{''}{"Invalid opcode"};
+ }
for(qw(a b c))
{
my $type = $c->{$_};