[Bps-public-commit] r14545 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Sun Jul 27 11:53:12 2008
New Revision: 14545

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/CLI.pm

Log:
 r65243 at onn:  sartak | 2008-07-27 11:51:31 -0400
 val can be undef; remove some ugly undef warnings


Modified: Prophet/trunk/lib/Prophet/CLI.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI.pm	Sun Jul 27 11:53:12 2008
@@ -225,6 +225,8 @@
             $val = shift @ARGV
                 if @ARGV && $ARGV[0] !~ /^--/;
 
+            no warnings 'uninitialized';
+
             # but wait! does the value look enough like a comparator? if so,
             # shift off another one (if we can)
             if ($val =~ /^(?:$cmp_re)$/ && @ARGV && $ARGV[0] !~ /^--/) {