swig/Examples/test-suite/perl5/run-perl-test.pl
2008-05-26 20:09:56 +00:00

15 lines
251 B
Perl
Executable file

#!/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);