Sign in
llvm
/
llvm-archive
/
2885991e037aedd1338e0d9f097152f7de8e321d
/
.
/
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
;