For the record... my current diff (patch):
--- /usr/share/perl5/CGI/PSGI.pm.orig 2011-08-29 22:54:39.000000000 +1000
+++ /usr/share/perl5/CGI/PSGI.pm 2014-09-06 06:53:17.000000000 +1000
@@ -204,11 +204,25 @@
user_name
read_multipart
read_multipart_related
+ delete
+ cache
+ path_info
+ query_string
+ unescapeHTML
+ new_MultipartBuffer
+ upload
+ uploadInfo
)) {
no strict 'refs';
*$method = sub {
my $self = shift;
- my $super = "SUPER::$method";
+ # PSz 5 Sep 2014 Fix error
+ # "Undefined subroutine CGI::PSGI::SUPER::request_method".
+ #my $super = "SUPER::$method";
+ my $super = "CGI::$method";
+ # Also added many methods (delete ... uploadInfo) above.
+ # Tempting to have line use parent 'CGI'; instead,
+ # would work for some but not others (how is that possible?!).
local *ENV = $self->{psgi_env};
$self->$super(@_);
};
Cheers, Paul
Paul Szabo [email protected] http://www.maths.usyd.edu.au/u/psz/
School of Mathematics and Statistics University of Sydney Australia
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
