25 lines
775 B
Perl
25 lines
775 B
Perl
$NetBSD: patch-src_web_graph.pl,v 1.1 2014/11/30 10:09:09 markd Exp $
|
|
|
|
fix usage with CGI >= 4.09
|
|
|
|
--- src/web_graph.pl.orig 2012-10-02 01:38:26.000000000 +0000
|
|
+++ src/web_graph.pl
|
|
@@ -20,7 +20,7 @@ sub web_graph {
|
|
my( $file, $ht, $r, $buf, $i );
|
|
|
|
my $q = $me->{q};
|
|
- my $obj = decode( $q->param('object') );
|
|
+ my $obj = decode( scalar $q->param('object') );
|
|
my $tag = $q->param('tag');
|
|
my $which = $q->param('which');
|
|
my $size = $q->param('size');
|
|
@@ -142,7 +142,7 @@ sub web_graphpage {
|
|
my $me = shift;
|
|
my( $obj, $which, $size, $r, $back, @opt );
|
|
|
|
- $obj = decode( $me->{q}->param('object') );
|
|
+ $obj = decode( scalar $me->{q}->param('object') );
|
|
my $tag = $me->{q}->param('tag');
|
|
my $url = $me->{q}->url();
|
|
|