/tags/rel-1-3-29/SWIG/Examples/test-suite/perl5/run-perl-test.pl

 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);