/tags/rel-1-3-29/SWIG/Examples/test-suite/perl5/run-perl-test.pl
Perl | 15 lines | 8 code | 5 blank | 2 comment | 2 complexity | 818dffb17235ed250199d425151ccb70 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
1#!/usr/bin/perl 2 eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' 3 if $running_under_some_shell; 4#!/usr/bin/perl -w 5 6use strict; 7 8my $command = shift @ARGV; 9 10my $output = `perl $command 2>&1`; 11 12die "SWIG Perl test failed: \n\n$output\n" 13 if $?; 14 15exit(0);