Item9167: lc(undef) and uc(undef) crash on perl 5.12

git-svn-id: http://svn.foswiki.org/trunk@8086 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Jul 9, 2010 · 61e18f1 · 61e18f1
1 parent 28d0c62
commit 61e18f1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/PreferencesPlugin/lib/Foswiki/Plugins/PreferencesPlugin.pm b/PreferencesPlugin/lib/Foswiki/Plugins/PreferencesPlugin.pm
@@ -79,7 +79,7 @@ sub beforeCommonTagsHandler {
 
     my $query = Foswiki::Func::getCgiQuery();
 
-    my $action = lc( $query->param('prefsaction') );
+    my $action = lc( $query->param('prefsaction') || '' );
     $query->Delete('prefsaction');
     $action =~ s/\s.*$//;