Changeset b125668 for perl/lib/BarnOwl.pm

Timestamp:

May 3, 2010, 7:58:50 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

release-1.6

Children:

9e0bc3b

Parents:

774f439

git-author:

Nelson Elhage <nelhage@mit.edu> (04/28/10 11:10:38)

git-committer:

Nelson Elhage <nelhage@mit.edu> (05/03/10 19:58:50)

Message:

Fix an 'uninitialized' warning in recv:shift-right

I have no idea why I didn't catch this when I was fixing
recv_shift_left.

File:

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

perl/lib/BarnOwl.pm

@@ -535 +535 @@
     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();
     BarnOwl::recv_setshift($shift+$delta);