$NetBSD: patch-src_web_login.pl,v 1.1 2014/11/30 10:09:09 markd Exp $ fix usage with CGI >= 4.09 --- src/web_login.pl.orig 2012-09-03 15:24:54.000000000 +0000 +++ src/web_login.pl @@ -54,7 +54,7 @@ sub web_login { return ; } - my @a = $me->authenticate( $user, $q->param('passwd') ); + my @a = $me->authenticate( $user, scalar $q->param('passwd') ); unless(@a){ my $emsg = l10n('Authentication Failed'); @@ -104,15 +104,15 @@ sub web_login_form { print "
\n";
- print $q->startform(), "\n";
+ print $q->start_form(), "\n";
print "\n";
- print "param('next'), "\">\n";
+ print "param('next'), "\">\n";
print "
\n"; - print $q->endform(), "\n"; + print $q->end_form(), "\n"; print " |