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

[spang at bestpractical.com]

Author: spang
Date: Mon Aug 18 10:58:53 2008
New Revision: 15219

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

Log:
 r48440 at loki:  spang | 2008-08-18 15:53:05 +0100
 clean up some warnings


Modified: Prophet/trunk/lib/Prophet/CLI/Command.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI/Command.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI/Command.pm	Mon Aug 18 10:58:53 2008
@@ -79,8 +79,8 @@
     my %args = @_;
     my $hash = $args{'hash'};
     my @ordering = @{ $args{'ordering'} || [] };
-    my $do_not_edit = $record->can('props_not_to_edit') ? $record->props_not_to_edit : '';
     my $record = $self->_get_record_class;
+    my $do_not_edit = $record->can('props_not_to_edit') ? $record->props_not_to_edit : '';
 
     if (@ordering) {
         # add any keys not in @ordering to the end of it
@@ -110,6 +110,7 @@
             $filtered->{$prop} = $val unless !($val);
         }
     }
+    no warnings 'uninitialized';
 
     # if a key is deleted intentionally, set its value to ''
     foreach my $prop (keys %$hash) {
@@ -118,7 +119,6 @@
         }
     }
 
-    no warnings 'uninitialized';
     # filter out unchanged keys as they clutter changesets if they're set again
     map { delete $filtered->{$_} if $hash->{$_} eq $filtered->{$_} } keys %$filtered;