569 203 Bytes
Newer Older
1
2
3
4
5
6
7
use strict;
use libdb;

sub DoUpdate($$$)
{
    my ($dbhandle, $dbname, $version) = @_;

8
9
10
    #
    # This has been nullified; made a mistake.
    #
11
12
13
14
15
16
    return 0;
}

# Local Variables:
# mode:perl
# End: