[Aplaws-commit] r939 - users/sskracic/bin

[<ssk...@vh...>]

Author: sskracic
Date: 2005-09-30 12:25:50 +0200 (Fri, 30 Sep 2005)
New Revision: 939

Modified:
   users/sskracic/bin/pgcompare.tcl
Log:
  The postgres database name may contain dash (-).
Not only that, but the regexp that matches command line options
was wrong.


Modified: users/sskracic/bin/pgcompare.tcl
===================================================================
--- users/sskracic/bin/pgcompare.tcl	2005-09-29 20:46:18 UTC (rev 938)
+++ users/sskracic/bin/pgcompare.tcl	2005-09-30 10:25:50 UTC (rev 939)
@@ -50,7 +50,7 @@
 set options [list]
 for {set optionc 0} {$optionc < [llength $argv]} {incr optionc} {
     set arg [lindex $argv $optionc]
-    if {[regexp -- {-(.*)} $arg all opt]} {
+    if {[regexp -- {^-(.*)} $arg all opt]} {
         switch -exact -- $opt {
             "-"     { break }
             "t"     { set filter [lindex $argv [incr optionc]] ; lappend options $opt }