Changeset 9142 for lang/perl/HTML-StickyQuery-DoCoMoGUID/trunk/lib/HTML/StickyQuery/DoCoMoGUID.pm

Timestamp:

04/08/08 21:04:19 (5 years ago)

Author:

yappo

Message:

lang/perl/HTML-StickyQuery?-DoCoMoGUID: param を上書きしちゃいかん

Files:

• lang/perl/HTML-StickyQuery-DoCoMoGUID/trunk/lib/HTML/StickyQuery/DoCoMoGUID.pm (modified) (1 diff)

lang/perl/HTML-StickyQuery-DoCoMoGUID/trunk/lib/HTML/StickyQuery/DoCoMoGUID.pm

@@ -16 +16 @@
 sub sticky {
     my($self, %args) = @_;
-    $args{param} = {};
+    $args{param} ||= {};
     $args{param}->{guid} = 'ON' unless $args{disable_guid};