From eadf5be66f5ada7c6f973e0e7cf5b85985dd6e80 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 28 May 2008 10:07:09 +0000
Subject: [PATCH] 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.
---
 lib/PLP/Backend/CGI.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
 
-- 
2.30.0