/[cvs]/nfo/perl/libs/Getopt/Easy.pm
ViewVC logotype

Diff of /nfo/perl/libs/Getopt/Easy.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Sat Feb 1 01:57:56 2003 UTC revision 1.2 by joko, Sat Feb 1 02:59:59 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.2  2003/02/01 02:59:59  joko
6    ##  + modified option/argument-detection regex
7    ##
8  ##  Revision 1.1  2003/02/01 01:57:56  joko  ##  Revision 1.1  2003/02/01 01:57:56  joko
9  ##  + initial commit - partly refactored replace_cvs/replace_cvs.pl  ##  + initial commit - partly refactored replace_cvs/replace_cvs.pl
10  ##  ##
# Line 42  sub merge_cli_arguments { Line 45  sub merge_cli_arguments {
45    my $args;    my $args;
46    while (my $arg = shift @ARGV) {    while (my $arg = shift @ARGV) {
47      next if !$arg;      next if !$arg;
48      if ($arg =~ m/^--(\w+)(=.+?)??$/) {      if ($arg =~ m/^--([\w|\-|\.]+)(=.+?)??$/) {
49        my $val = $2;        my $val = $2;
50        if ($val) {        if ($val) {
51          $val =~ s/^=//;          $val =~ s/^=//;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed