lots_of_functions.pl

application/octet-stream

Filename: lots_of_functions.pl

Type: application/octet-stream

Part: 0

Message: Re: ALTER TABLE lock strength reduction patch is unsafe

#!/usr/bin/perl

print <<EOM;
CREATE SCHEMA lots_of_functions;
EOM

for my $i (1 .. 3000)
{
	print <<EOM;
CREATE FUNCTION lots_of_functions.x$i() RETURNS int4
   AS 'SELECT 1' LANGUAGE sql;
EOM
}