Changeset 365950b

Timestamp:

Jan 7, 2010, 3:51:02 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.6, release-1.7, release-1.8, release-1.9

Children:

8a2815b

Parents:

ec5d1a2

Message:

Squelch an 'uninitialized' warning in recv:shift-left.

File:

• perl/lib/BarnOwl.pm (modified) (1 diff)

perl/lib/BarnOwl.pm

@@ -521 +521 @@
     my $func = shift;
     my $delta = shift;
-    $delta = 10 unless int($delta) > 0;
+    $delta = 10 unless defined($delta) && int($delta) > 0;
     my $shift = BarnOwl::recv_getshift();
     if($shift > 0) {