suppress warning in PLP::Backend::CGI

[perl/plp/.git] / lib / PLP / Backend / CGI.pm

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