Sign in
llvm
/
llvm-archive
/
48649d2c83b557841c9e5c978d9ab5af13cb52e5
/
.
/
safecode
/
utils
/
omega.pl
blob: 2b8b472bb366ca951d5c8ee8dab49c7d0202bbdc [
file
] [
log
] [
blame
]
#!/usr/bin/perl
$output
=
0
;
$line
=
<
STDIN
>;
while
(!
eof
)
{
if
(
$line
=~
/FALSE/
)
{
$output
=
1
;
}
$line
=
<
STDIN
>;
}
print
$output
;