Changeset 365950b for perl


Ignore:
Timestamp:
Jan 7, 2010, 3:51:02 PM (14 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl.pm

    r6700c605 r365950b  
    521521    my $func = shift;
    522522    my $delta = shift;
    523     $delta = 10 unless int($delta) > 0;
     523    $delta = 10 unless defined($delta) && int($delta) > 0;
    524524    my $shift = BarnOwl::recv_getshift();
    525525    if($shift > 0) {
Note: See TracChangeset for help on using the changeset viewer.