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