undef $db_encoding to disable decode of encoding

[SQL2XLS] / sql2xls.cgi

diff --git a/sql2xls.cgi b/sql2xls.cgi
index c71a7d6..73cbcf8 100755 (executable)
--- a/sql2xls.cgi
+++ b/sql2xls.cgi
@@ -116,6 +116,7 @@ my $date_format = $workbook->add_format(num_format => $xls_date_format);
 my $dbh = DBI->connect($dsn . $database,$user,$passwd, { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
 
 sub _c {
+       return shift unless $db_encoding;
        return decode( $db_encoding, shift );
 }