Sign in
fuchsia
/
third_party
/
swig
/
2824b0cbb66e715490e1ef13250bd675d87b32d9
/
.
/
trunk
/
Examples
/
test-suite
/
perl5
/
run-perl-test.pl
blob: 106bf002bb09df47bbbbb35a5b546226dd839d44 [
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 $command 2>&1`
;
die
"SWIG Perl test failed: \n\n$output\n"
if
$
?;
exit
(
0
);