Sign in
fuchsia
/
third_party
/
swig
/
3f78ea64c041d0f55966b896745b9fc6c3704b71
/
.
/
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
);