mysql-test/lib/t/test_child.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/perl
# -*- cperl -*-

use strict;
use Getopt::Long;

my $opt_exit_code= 0;

GetOptions
  (
   # Exit with the specified exit code
   'exit-code=i'   => \$opt_exit_code
  );


print "Hello stdout\n";
print STDERR "Hello stderr\n";

exit ($opt_exit_code);