database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-30 16:24:05 +03:00
Code Activity

Don't use Getopt::Long in safe_process.pl

Browse Source
This commit is contained in:
unknown
2007-12-20 18:39:33 +01:00
parent 4933a62af6
commit 11bb5c9508
1 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
mysql-test/lib/My/SafeProcess/safe_process.pl
View File

@ -4,7 +4,6 @@
use strict; use strict;
use warnings; use warnings;
use Time::localtime;
use lib 'lib'; use lib 'lib';
use My::SafeProcess::Base; use My::SafeProcess::Base;
use POSIX qw(WNOHANG); use POSIX qw(WNOHANG);
@ -19,6 +18,7 @@ use POSIX qw(WNOHANG);
my $verbose= 0; my $verbose= 0;
sub message { sub message {
if ($verbose > 0){ if ($verbose > 0){
use Time::localtime;
my $tm= localtime(); my $tm= localtime();
my $timestamp= sprintf("%02d%02d%02d %2d:%02d:%02d", my $timestamp= sprintf("%02d%02d%02d %2d:%02d:%02d",
$tm->year % 100, $tm->mon+1, $tm->mday, $tm->year % 100, $tm->mon+1, $tm->mday,
@ -43,16 +43,26 @@ $SIG{INT}= sub { message("!Got signal @_"); $terminated= 1; };
my $parent_pid= getppid(); my $parent_pid= getppid();
use Getopt::Long; my $found_double_dash= 0;
GetOptions( while (my $arg= shift(@ARGV)){
'verbose' => \$verbose,
) or die "GetOptions failed"; if ($arg =~ /^--$/){
shift(@ARGV) if defined($ARGV[0]) and $ARGV[0] eq "--"; $found_double_dash= 1;
last;
}
elsif ($arg =~ /^--verbose$/){
$verbose= 1;
}
else {
die "Unknown option: $arg";
}
}
my $path= shift(@ARGV); # Executable my $path= shift(@ARGV); # Executable
die "usage:\n" . die "usage:\n" .
" safe_process.pl [opts] -- <path> [<args> [...<args_n>]]" " safe_process.pl [opts] -- <path> [<args> [...<args_n>]]"
unless defined $path; unless defined $path || $found_double_dash;
message("started"); message("started");