426
426
print "Fixing hardcoded library paths for stored procedures...\n";
427
427
(system $psql, '-h', $oldsocket, '-p', $info{'port'}, '-q', '-d',
428
428
$db, '-c', "BEGIN; set transaction read write; \
430
replace(encode(probin, 'escape'), '/usr/lib/postgresql/lib', '\$libdir'), \
430
replace(probin, '/usr/lib/postgresql/lib', '\$libdir'), \
432
432
error 'Could not fix library paths';
434
434
print 'Upgrading database ', $db, "...\n";