Sign in
fuchsia
/
third_party
/
swig
/
3f3073547804f2e112085429ddfb691beba5a2ba
/
.
/
Examples
/
test-suite
/
perl5
/
run-perl-test.pl
blob: 5ea4e51157ef739e7e6b4f68125f7f7f421f9138 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
eval
'exec /usr/bin/perl -S $0 ${1+"$@"}'
if
$running_under_some_shell
;
#!/usr/bin/perl -w
use
strict
;
my
$command
=
shift
@ARGV
;
my
$output
=
`$^X -I. $command 2>&1`
;
die
"SWIG Perl test failed: \n\n$output\n"
if
$
?;
exit
(
0
);