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 |
## |
## |
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/^=//; |