develooper Front page | perl.libwww | Postings from March 2001

Bug in HTML::Form 0.03

Thread Next
From:
BooK
Date:
March 11, 2001 15:57
Subject:
Bug in HTML::Form 0.03
Message ID:
Pine.LNX.4.21.0103120038120.1023-100000@rose.home.cyclotron.org
Hi,

I am new to this list, to which I subscribed because of the following:
the "action" method from HTML::Form has no effect when used to set the
value of the action. I am using HTML::Form 0.03, which I just downloaded
from CPAN.

Here's a patch to correct what seems to be a typo.

--- Form.pm.old	Mon Mar 12 00:40:43 2001
+++ Form.pm	Mon Mar 12 00:41:07 2001
@@ -185,7 +185,7 @@
        *{$m} = sub {
            my $self = shift;
            my $old = $self->{$m};
-           $self->{$m} = shift if $@;
+           $self->{$m} = shift if @_;
            $old;
        };
     }


	Regards,

	Philippe Bruhat

------------------------------------------------------------------------------
 Philippe BRUHAT - BooK

 Your reputation is what you make of it... and what you choose to take with
 you.                               (Moral from Groo The Wanderer #48 (Epic))




Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About