/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 

    

  1. #!/usr/bin/perl
    2. 

  2.     eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    3. 

  3. 	if $running_under_some_shell;
    4. 

  4. #!/usr/bin/perl -w
    5. 

  5. 

  6. use strict;
    7. 

  7. 

  8. my $command = shift @ARGV;
    9. 

  9. 

  10. my $output = `perl $command 2>&1`;
    11. 

  11. 

  12. die "SWIG Perl test failed: \n\n$output\n"
    13. 

  13.   if $?;
    14. 

  14. 

  15. exit(0);
    16.