From: Oliver M. B. <ol...@fa...> - 2004-02-10 14:09:21
|
On Tue, Feb 10, 2004 at 02:39:08PM +0100, I wrote... > What do others think? I'll produce a patch if such a change is > acceptable for merge. Anyhow such a patch could look like this. diff -u -3 -p -r1.2 -r1.3 --- Environment.pm 10 Feb 2004 12:27:29 -0000 1.2 +++ Environment.pm 10 Feb 2004 14:02:27 -0000 1.3 @@ -1,7 +1,7 @@ # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2003 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: Environment.pm,v 1.2 2004/02/10 12:27:29 oliver Exp $ +# $Id: Environment.pm,v 1.3 2004/02/10 14:02:27 oliver Exp $ package Slash::Utility::Environment; @@ -34,7 +34,7 @@ use Encode::Guess; use base 'Exporter'; use vars qw($VERSION @EXPORT); -($VERSION) = ' $Revision: 1.2 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; @EXPORT = qw( createCurrentAnonymousCoward createCurrentCookie @@ -1441,6 +1441,8 @@ sub filter_params { $form{$_} = \@multi; $form{_multi}{$_} = \@multi; next; + } elsif (/^op_(.+)$/){ + $form{'op'} = $1; } } } @@ -2253,4 +2255,4 @@ Slash(3), Slash::Utility(3). =head1 VERSION -$Id: Environment.pm,v 1.2 2004/02/10 12:27:29 oliver Exp $ +$Id: Environment.pm,v 1.3 2004/02/10 14:02:27 oliver Exp $ -- Oliver M. Bolzer ol...@go... GPG (PGP) Fingerprint = 621B 52F6 2AC1 36DB 8761 018F 8786 87AD EF50 D1FF |