300 322 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#
# Fix to regex table.
#
use strict;
use libdb;

sub DoUpdate($$$)
{
    my ($dbhandle, $dbname, $version) = @_;
    
    DBQueryFatal("REPLACE INTO table_regex VALUES ".
		 "('users','usr_affil_abbrev','text','redirect', ".
		 " 'default:tinytext',0,16,NULL)");
    return 0;
}
1;

# Local Variables:
# mode:perl
# End: