--- nfo/perl/libs/Getopt/Easy.pm	2003/02/01 01:57:56	1.1
+++ nfo/perl/libs/Getopt/Easy.pm	2003/02/01 02:59:59	1.2
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: Easy.pm,v 1.1 2003/02/01 01:57:56 joko Exp $
+##  $Id: Easy.pm,v 1.2 2003/02/01 02:59:59 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Easy.pm,v $
+##  Revision 1.2  2003/02/01 02:59:59  joko
+##  + modified option/argument-detection regex
+##
 ##  Revision 1.1  2003/02/01 01:57:56  joko
 ##  + initial commit - partly refactored replace_cvs/replace_cvs.pl
 ##
@@ -42,7 +45,7 @@
   my $args;
   while (my $arg = shift @ARGV) {
     next if !$arg;
-    if ($arg =~ m/^--(\w+)(=.+?)??$/) {
+    if ($arg =~ m/^--([\w|\-|\.]+)(=.+?)??$/) {
       my $val = $2;
       if ($val) {
         $val =~ s/^=//;