6 require "/usr/lib/sourceforge/lib/sqlparser.pm" ;
11 open G, "> $g" or die $! ;
12 my @l = @{ &parse_sql_file ($f) } ;
13 foreach my $s (sort @l) {
19 sub uncomment ( $$ ) {
22 open F, $f or die $! ;
23 open G, "> $g" or die $! ;
26 next if $l =~ /^\s*$/ ;
28 next if $l =~ /^\\connect/ ;
29 $l = join (" ", split (/\s+/, $l)) ;
36 uncomment "dump-2.6", "tmpfile-2.6" ;
37 sort_sql "tmpfile-2.6", "schema-2.6.sorted" ;
38 unlink "tmpfile-2.6" ;
39 uncomment "dump-2.6-from-2.5", "tmpfile-2.6-from-2.5" ;
40 sort_sql "tmpfile-2.6-from-2.5", "schema-2.6-from-2.5.sorted" ;
41 unlink "tmpfile-2.6-from-2.5" ;