File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -18,12 +18,9 @@ use File::Basename qw(basename);
1818use File::Spec;
1919use Getopt::Std qw( getopts) ;
2020
21- our $VERSION = ' 1.6 ' ;
21+ our $VERSION = ' 1.7 ' ;
2222my $Program = basename($0 );
2323
24- $SIG {__WARN__ } = sub { warn " $Program : @_ \n " };
25- $SIG {__DIE__ } = sub { die " $Program : @_ \n " };
26-
2724my %options ;
2825getopts(' m:p' , \%options ) or usage();
2926usage() unless @ARGV ;
@@ -32,6 +29,9 @@ use constant EX_SUCCESS => 0;
3229use constant EX_ERROR => 1;
3330use constant EX_USAGE => 2;
3431
32+ $SIG {__WARN__ } = sub { print { *STDERR } " $Program : @_ " };
33+ $SIG {__DIE__ } = sub { print { *STDERR } " $Program : @_ " ; exit EX_ERROR };
34+
3535sub VERSION_MESSAGE {
3636 print " $Program version $VERSION \n " ;
3737 exit EX_SUCCESS;
You can’t perform that action at this time.
0 commit comments