commit 75e08df14110cb3aa9cbd4ff783c3cac3f5ccec9
Author: Kris Shannon <kris@shannon.id.au>
Date:   Wed Nov 16 13:33:02 2011 +1100

    Fix perl regexes in tabcomplete.pl

diff --git a/pgadmin/utils/tabcomplete.pl b/pgadmin/utils/tabcomplete.pl
new file mode 100644
index 17b70d7..b35dbaf
*** a/pgadmin/utils/tabcomplete.pl
--- b/pgadmin/utils/tabcomplete.pl
*************** my $alltxt = <F>;
*** 25,39 ****
  close(F);
  
  # Get rid of everything before and after the parts we're interested in
! $alltxt =~ /.*(typedef struct SchemaQuery.*)\/\* GENERATOR FUNCTIONS\s+.*/s || die("Failed match 1");
  $alltxt = $1;
  
  # Get rid of forward declarations and initialize_readline
! $alltxt =~ /(.*)\/\*\s+Forward declaration of functions \*\/.*(\/\* The completion function\..*)/s || die("Failed match 2");
  $alltxt = $1 . $2;
  
  # Get rid of completion macros, we define them ourselves
! $alltxt =~ /(.*)\/\* A couple of macros to ease typing.*\*\/\s+#define COMPLETE_WITH_QUERY.*\s+(\/\*\s+\* Assembly instructions.*)/s || die("Failed match 4");
  $alltxt = $1 . $2;
  
  # Rewrite matches that don't use the macros
--- 25,39 ----
  close(F);
  
  # Get rid of everything before and after the parts we're interested in
! $alltxt =~ /.*(typedef struct SchemaQuery.*)\/\*(?:\s+\*)* GENERATOR FUNCTIONS\s+.*/s || die("Failed match 1");
  $alltxt = $1;
  
  # Get rid of forward declarations and initialize_readline
! $alltxt =~ /(.*)\/\*(?:\s+\*)*\s+Forward declaration of functions \*\/.*(\/\*(?:\s+\*)* The completion function\..*)/s || die("Failed match 2");
  $alltxt = $1 . $2;
  
  # Get rid of completion macros, we define them ourselves
! $alltxt =~ /(.*)\/\*(?:\s+\*)* A (?:couple of|few) macros to ease typing.*\*\/\s+#define COMPLETE_WITH_QUERY.*\s+(\/\*\s+\* Assembly instructions.*)/s || die("Failed match 4");
  $alltxt = $1 . $2;
  
  # Rewrite matches that don't use the macros