Fix some warnings

[ypp-sc-tools.db-live.git] / yarrg / web / pirates

diff --git a/yarrg/web/pirates b/yarrg/web/pirates
old mode 100644 (file)
new mode 100755 (executable)
index 158239d..6a3c478
--- a/yarrg/web/pirates
+++ b/yarrg/web/pirates
@@ -54,6 +54,5 @@ $sth->execute();
 
 <%init>
 use CommodsWeb;
-db_setocean('Midnight');
-db_connect();
+my $dbh= dbw_connect('Midnight');
 </%init>