Parent Directory | Revision Log | Patch
revision 1.2 by dpavlin, Tue Apr 25 13:48:56 2000 UTC | revision 1.3 by dpavlin, Tue Apr 25 13:57:45 2000 UTC | |
---|---|---|
# | Line 62 while(<DUMP>) { | Line 62 while(<DUMP>) { |
62 | if (/^\s*(\w+)\s+/) { | if (/^\s*(\w+)\s+/) { |
63 | $seq="${table}_${1}_seq"; | $seq="${table}_${1}_seq"; |
64 | push @sequences,"$table.$1"; | push @sequences,"$table.$1"; |
65 | s/\w*int.*auto_increment/int4 default nextval('$seq') not null/ig; | s/(\w+) \w*int.*auto_increment/$1 int4 default nextval('$seq') not null/ig; |
66 | } else { | } else { |
67 | die "can't get name of field!"; | die "can't get name of field!"; |
68 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |