cvs -q diff -r 1.1 Parser.pm (in directory C:\home\amo\develop\netfrag.org\nfo\perl\libs\SQL\)

Index: Parser.pm

===================================================================

RCS file: /var/lib/cvs/nfo/perl/libs/SQL/Parser.pm,v

retrieving revision 1.1

retrieving revision 1.2

diff -r1.1 -r1.2

1505c1505

< if ($id =~ /\W/) {

---

> if ($id !~ /\w|\./) {

*****CVS exited normally with code 1*****