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

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

Browse Source
This commit is contained in:
msvensson@pilot.mysql.com
2007-12-20 18:39:33 +01:00
parent d930e9bb22
commit 8b3d267eea
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 warnings;
use Time::localtime;
use lib 'lib';
use My::SafeProcess::Base;
use POSIX qw(WNOHANG);
@ -19,6 +18,7 @@ use POSIX qw(WNOHANG);
my $verbose= 0;
sub message {
if ($verbose > 0){
use Time::localtime;
my $tm= localtime();
my $timestamp= sprintf("%02d%02d%02d %2d:%02d:%02d",
$tm->year % 100, $tm->mon+1, $tm->mday,
@ -43,16 +43,26 @@ $SIG{INT}= sub { message("!Got signal @_"); $terminated= 1; };
my $parent_pid= getppid();
use Getopt::Long;
GetOptions(
'verbose' => \$verbose,
) or die "GetOptions failed";
shift(@ARGV) if defined($ARGV[0]) and $ARGV[0] eq "--";
my $found_double_dash= 0;
while (my $arg= shift(@ARGV)){
if ($arg =~ /^--$/){
$found_double_dash= 1;
last;
}
elsif ($arg =~ /^--verbose$/){
$verbose= 1;
}
else {
die "Unknown option: $arg";
}
}
my $path= shift(@ARGV); # Executable
die "usage:\n" .
" safe_process.pl [opts] -- <path> [<args> [...<args_n>]]"
unless defined $path;
unless defined $path || $found_double_dash;
message("started");