mirror of
https://github.com/MariaDB/server.git
synced 2025-01-20 14:02:32 +01:00
22 lines
267 B
Perl
22 lines
267 B
Perl
|
#!/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);
|
||
|
|
|
||
|
|
|