work around perl warning

[ikiwiki.git] / IkiWiki / Plugin / external.pm

diff --git a/IkiWiki/Plugin/external.pm b/IkiWiki/Plugin/external.pm
index a30ef3f61889eb9195e96c7588dc68e19399afb9..4c2e5d2feb28ce5d842dcf75dab275a3e7855493 100644 (file)
--- a/IkiWiki/Plugin/external.pm
+++ b/IkiWiki/Plugin/external.pm
@@ -150,8 +150,9 @@ sub setstate ($$$$;@) { #{{{
        my $page=shift;
        my $id=shift;
        my $key=shift;
+       my $value=shift;
 
-       return $IkiWiki::pagestate{$page}{$id}{$key}=@_;
+       return $IkiWiki::pagestate{$page}{$id}{$key}=$value;
 } #}}}
 
 sub getargv ($) { #{{{
@@ -162,8 +163,9 @@ sub getargv ($) { #{{{
 
 sub setargv ($@) { #{{{
        my $plugin=shift;
+       my $array=shift;
 
-       @ARGV=@_;
+       @ARGV=@$array;
 } #}}}
 
 sub inject ($@) { #{{{