Item10889: fix uninitialised warnings for 5.12

git-svn-id: http://svn.foswiki.org/branches/Release01x01@11988 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Jun 18, 2011 · a4e50ae · a4e50ae
1 parent 0ffe93b
commit a4e50ae
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/core/lib/Foswiki/Query/OP_lc.pm b/core/lib/Foswiki/Query/OP_lc.pm
@@ -27,7 +27,8 @@ sub new {
 sub evaluate {
     my $this = shift;
     my $node = shift;
-    return $this->evalUnary( $node, sub { lc(shift) }, @_ );
+    return $this->evalUnary( $node,
+        sub { my $arg = shift; defined $arg ? lc($arg) : undef }, @_ );
 }
 
 1;
@@ -36,7 +37,7 @@ Author: Crawford Currie http://c-dot.co.uk
 
 Foswiki - The Free and Open Source Wiki, http://foswiki.org/
 
-Copyright (C) 2008-2010 Foswiki Contributors. Foswiki Contributors
+Copyright (C) 2008-2011 Foswiki Contributors. Foswiki Contributors
 are listed in the AUTHORS file in the root of this distribution.
 NOTE: Please extend that file, not this notice.
 

diff --git a/core/lib/Foswiki/Query/OP_uc.pm b/core/lib/Foswiki/Query/OP_uc.pm
@@ -27,7 +27,8 @@ sub new {
 sub evaluate {
     my $this = shift;
     my $node = shift;
-    return $this->evalUnary( $node, sub { uc(shift) }, @_ );
+    return $this->evalUnary( $node,
+        sub { my $arg = shift; defined $arg ? uc($arg) : undef }, @_ );
 }
 
 1;
@@ -36,7 +37,7 @@ Author: Crawford Currie http://c-dot.co.uk
 
 Foswiki - The Free and Open Source Wiki, http://foswiki.org/
 
-Copyright (C) 2008-2010 Foswiki Contributors. Foswiki Contributors
+Copyright (C) 2008-2011 Foswiki Contributors. Foswiki Contributors
 are listed in the AUTHORS file in the root of this distribution.
 NOTE: Please extend that file, not this notice.