Changeset 28921

Timestamp:

Aug 16, 2010, 2:01:21 PM (16 years ago)

Author:

rhenders

Message:

Made safer by initialising variable as 'undef'

File:

• trunk/tools/czartool/CzarDb.pm (modified) (2 diffs)

trunk/tools/czartool/CzarDb.pm

@@ -16 +16 @@
 
     # Call the constructor of the parent class, Person.
-    my $self = $class->SUPER::new( $_[1], $_[2], $_[3], $_[4],  $_[5], $_[6]);
+    my $self = $class->SUPER::new($_[1], $_[2], $_[3], $_[4],  $_[5], $_[6]);
 
     bless $self, $class;
@@ -237 +237 @@
     if (!$query->execute) {return undef;}
 
-    my $minProcessed;
+    my $minProcessed = undef;
 
     ($minProcessed, ${$maxY}, ${$minY}, ${$maxX}, ${$minX}, ${$timeDiff}) = $query->fetchrow_array();
 
-    if (!$minProcessed) {return undef;}
+    if (!defined $minProcessed) {return undef;}
 
     $query = $self->{_db}->prepare(<<SQL);