X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=2079d6aad69c182bb26c392dec7feaf32f2ed916;hb=9e55351cd6b7618026477ab7d0d674af6cc8322a;hp=4ddc0daedc581c9461a6787ddb702696271a9672;hpb=150143c86481611f06d86a0956b6b7965b1c0c88;p=pr0n diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm index 4ddc0da..2079d6a 100644 --- a/perl/Sesse/pr0n/Common.pm +++ b/perl/Sesse/pr0n/Common.pm @@ -12,6 +12,7 @@ use Apache2::Log; use ModPerl::Util; use Carp; +use Encode; use DBI; use DBD::Pg; use Image::Magick; @@ -32,7 +33,7 @@ BEGIN { require Sesse::pr0n::Config_local; }; - $VERSION = "v2.11"; + $VERSION = "v2.12"; @ISA = qw(Exporter); @EXPORT = qw(&error &dberror); %EXPORT_TAGS = qw(); @@ -128,7 +129,7 @@ sub get_query_string { next unless defined($value); next if (defined($defparam->{$key}) && $value == $defparam->{$key}); - $str .= ($first) ? "?" : '&'; + $str .= ($first) ? "?" : ';'; $str .= "$key=$value"; $first = 0; }