X-Git-Url: http://git.shiar.nl/perl/plp/.git/blobdiff_plain/b5e0ee87251670be18b2f2fc128a4be0b25ebfb8..b7dd110b3498d81e11432a5f901d2f2600d2137e:/lib/PLP/Backend/CGI.pm 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; }