Changeset 675a998 for perl


Ignore:
Timestamp:
Apr 28, 2010, 11:11:52 AM (14 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.10, release-1.7, release-1.8, release-1.9
Children:
1f3a423
Parents:
14965e5
git-author:
Nelson Elhage <nelhage@mit.edu> (04/28/10 11:10:38)
git-committer:
Nelson Elhage <nelhage@mit.edu> (04/28/10 11:11:52)
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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl.pm

    ref4700c r675a998  
    535535    my $func = shift;
    536536    my $delta = shift;
    537     $delta = 10 unless int($delta) > 0;
     537    $delta = 10 unless defined($delta) && int($delta) > 0;
    538538    my $shift = BarnOwl::recv_getshift();
    539539    BarnOwl::recv_setshift($shift+$delta);
Note: See TracChangeset for help on using the changeset viewer.