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 e4bcf1edd3d5d0e019df5133faeb68dadfd79ebc..5d45500403a6cc4d51074c5808305f749d534554 100644 (file)
--- 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;
 }