ActiveState Perl V. 5.8.8.816/817 und CGI-Modul 2.91
am 24.05.2006 14:17:07 von drmHallo Zusammen,
als ich unter Windows eine neue Perl Version von ActiveState
installiert hatte (5.8.8.816/817),
funktionierte die url() Funktion des CGI-Moduls (2.91) nicht mehr.
Beispiel:
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard escapeHTML);
print 'full_url: url() = ', url(), br(),
'myself: self_url() = ', self_url(), br(),
'full_url: url(-full=>1) = ', url(-full=>1), br(),
'relative_url: url(-relative=>1) = ', url(-relative=>1), br(),
'absolute_url: url(-absolute=>1) = ', url(-absolute=>1), br(),
'url_with_path: url(-path_info=>1) = ', url(-path_info=>1), br(),
'url_with_path_and_query: url(-path_info=>1,-query=>1) = ',
url(-path_info=>1,-query=>1), br(),
'netloc: url(-base => 1) = ', url(-base => 1), br(),
'script_name() = ', script_name();
Ausgabe mit Perl Version (816/817): =??
full_url: url() = http://testserver
myself: self_url() = http://testserver
full_url: url(-full=>1) = http://testserver
relative_url: url(-relative=>1) =
absolute_url: url(-absolute=>1) =
url_with_path: url(-path_info=>1) = http://testserver
url_with_path_and_query: url(-path_info=>1,-query=>1) =
http://testserver
netloc: url(-base => 1) = http://testserver
script_name() =
Ausgabe mit Perl Version 5.8.7.815 (=ok)
full_url: url() = http://testserver/cgi-bin/test/cgi.pl
myself: self_url() = http://testserver/cgi-bin/test/cgi.pl?action=test
full_url: url(-full=>1) = http://testserver/cgi-bin/test/cgi.pl
relative_url: url(-relative=>1) = cgi.pl
absolute_url: url(-absolute=>1) = /cgi-bin/test/cgi.pl
url_with_path: url(-path_info=>1) =
http://testserver/cgi-bin/test/cgi.pl
url_with_path_and_query: url(-path_info=>1,-query=>1) =
http://testserver/cgi-bin/test/cgi.pl?action=test
netloc: url(-base => 1) = http://testserver
script_name() = /cgi-bin/test/cgi.pl
Kennt jemand dieses Problem?