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

[<ssk...@re...>]

Author: sskracic
Date: 2004-11-23 14:28:38 +0100 (Tue, 23 Nov 2004)
New Revision: 122

Modified:
   users/sskracic/bin/pgcompare.tcl
Log:
  Removed dependencies on Tcl 8.4.


Modified: users/sskracic/bin/pgcompare.tcl
===================================================================
--- users/sskracic/bin/pgcompare.tcl	2004-11-22 18:50:26 UTC (rev 121)
+++ users/sskracic/bin/pgcompare.tcl	2004-11-23 13:28:38 UTC (rev 122)
@@ -102,7 +102,11 @@
 if {[has_option d] || [has_option s]} {
     lappend options 1 2
     # remove 12
-    set options [lsearch -all -inline -not $options 12]
+    set pos [lsearch $options 12]
+    if {$pos > -1} {
+        set options [lreplace $options $pos $pos]
+    }
+
 }
 
 if {[lsearch $options {[12]}] == -1} {
@@ -136,7 +140,7 @@
     puts "Obtaining schema for $dbname"
     set dbschema [eval exec pg_dump -s $pgdump_opts($dbindex) $dbname]
 
-    foreach type [array names types -glob $filter] {
+    foreach type [array names types $filter] {
         puts "    Fetching definition for object type: $type"
         set rgxp $types($type)
         set matches [regexp -inline -all -- $rgxp $dbschema]