avoid uninitialised value warnings
authorJoey Hess <joey@kodama.kitenet.net>
Sun, 6 Jul 2008 21:35:50 +0000 (17:35 -0400)
committerJoey Hess <joey@kodama.kitenet.net>
Sun, 6 Jul 2008 21:35:50 +0000 (17:35 -0400)
IkiWiki/Plugin/attachment.pm

index 3bbe27b1a42cbfbdf2f63568b19c856e00385a03..2bb86b78dbf09eb34dfc13549c4f941a34d7a557 100644 (file)
@@ -20,7 +20,7 @@ sub formbuilder_setup (@) { #{{{
        my $form=$params{form};
        my $q=$params{cgi};
 
        my $form=$params{form};
        my $q=$params{cgi};
 
-       if ($form->field("do") eq "edit") {
+       if (defined $form->field("do") && $form->field("do") eq "edit") {
                $form->field(name => 'attachment', type => 'file');
                # These buttons are not put in the usual place, so
                # are not added to the normal formbuilder button list.
                $form->field(name => 'attachment', type => 'file');
                # These buttons are not put in the usual place, so
                # are not added to the normal formbuilder button list.
@@ -76,7 +76,7 @@ sub formbuilder (@) { #{{{
        my $form=$params{form};
        my $q=$params{cgi};
 
        my $form=$params{form};
        my $q=$params{cgi};
 
-       return if $form->field("do") ne "edit";
+       return if ! defined $form->field("do") || $form->field("do") ne "edit";
 
        my $filename=$q->param('attachment');
        if (defined $filename && length $filename &&
 
        my $filename=$q->param('attachment');
        if (defined $filename && length $filename &&