git.shiar.nl
/
perl
/
plp
/
.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b5e0ee8
)
suppress warning in PLP::Backend::CGI
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 28 May 2008 10:07:09 +0000
(10:07 +0000)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 28 May 2008 10:49:47 +0000
(10:49 +0000)
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
patch
|
blob
|
history
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) = @_;
sub read ($) {
my ($bytes) = @_;
- read *STDIN, my
$data
, $bytes;
+ read *STDIN, my
($data)
, $bytes;
return $data;
}
return $data;
}