From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 28 May 2008 10:07:09 +0000 (+0000)
Subject: suppress warning in PLP::Backend::CGI
X-Git-Tag: 3.20~5
X-Git-Url: http://git.shiar.nl/perl/plp/.git/commitdiff_plain/eadf5be66f5ada7c6f973e0e7cf5b85985dd6e80

suppress warning in PLP::Backend::CGI

Add parentheses to my $scalar argument to read() to verify it's really
only a single variable.  Works the same, but fixes a warning if run -w.
---

diff --git a/lib/PLP/Backend/CGI.pm b/lib/PLP/Backend/CGI.pm
index e4bcf1e..5d45500 100644
--- a/lib/PLP/Backend/CGI.pm
+++ b/lib/PLP/Backend/CGI.pm
@@ -61,7 +61,7 @@ sub init {
 
 sub read ($) {
 	my ($bytes) = @_;
-	read *STDIN, my $data, $bytes;
+	read *STDIN, my ($data), $bytes;
 	return $data;
 }