Avoid a Perl warning.

diff --git a/smime_keys.pl b/smime_keys.pl
index 099555d859f989c1130ebc667adb12e57b3d0008..97f53e212944ff0a6a993726ec5b13dd0d06eb25 100755 (executable)
--- a/smime_keys.pl
+++ b/smime_keys.pl
@@ -934,6 +934,7 @@ sub newfile ($;$$) {
        # returns a file name which does not exist for tmp file creation
        my $filename = shift;
        my $option = shift;
+       $option = "notemp" if (not defined($option));
        if (! $tmpdir and $option eq "temp") {
                $tmpdir = mutt_Q 'tmpdir';
                $tmpdir = newfile("$tmpdir/smime");