From 0079f1504cf54bcd3955157235922a75318581f3 Mon Sep 17 00:00:00 2001 From: kirinji Date: Mon, 6 Aug 2007 01:12:11 +0000 Subject: [PATCH] Still more fiddling with the loading stuff. --- cgi-files/Modules/Database/MySQL5.pm | 2 +- cgi-files/Modules/Database/SQLite.pm | 2 +- cgi-files/kiriwrite.cgi | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/cgi-files/Modules/Database/MySQL5.pm b/cgi-files/Modules/Database/MySQL5.pm index 18fe539..d2c9c17 100644 --- a/cgi-files/Modules/Database/MySQL5.pm +++ b/cgi-files/Modules/Database/MySQL5.pm @@ -31,7 +31,7 @@ use Encode qw(); # Load the following Perl modules. -use DBI; +use DBI qw(:sql_types); # Set the following values. diff --git a/cgi-files/Modules/Database/SQLite.pm b/cgi-files/Modules/Database/SQLite.pm index 92bce19..1fa3a9a 100644 --- a/cgi-files/Modules/Database/SQLite.pm +++ b/cgi-files/Modules/Database/SQLite.pm @@ -30,7 +30,7 @@ use warnings; # Load the following Perl modules. -use DBI qw(); +use DBI qw(:sql_types); # Set the following values. diff --git a/cgi-files/kiriwrite.cgi b/cgi-files/kiriwrite.cgi index bb13b10..4f0fc6d 100755 --- a/cgi-files/kiriwrite.cgi +++ b/cgi-files/kiriwrite.cgi @@ -24,10 +24,10 @@ use strict; # Throw errors if there's something wrong. use warnings; # Write warnings to the HTTP Server Log file. -use utf8 qw(); +use utf8; use CGI qw(header); use CGI::Carp('fatalsToBrowser'); # Output errors to the browser. -use Tie::IxHash qw(); +use Tie::IxHash; # Declare global variables for Kiriwrite settings and languages. -- 2.39.2