Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Declaring $buffer in taste_file() to prevent uninitialized warning

(5.003 only).

svn path=/bioperl-live/branches/release-0-04-bug/; revision=892
  • Loading branch information...
commit b1ff6705e75007e016361330dbaa47a367598281 1 parent aa8fc38
@trutane trutane authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  Bio/Root/Utilities.pm
View
1  Bio/Root/Utilities.pm
@@ -914,6 +914,7 @@ sub taste_file {
my ($buffer, $octal, $str, $irs, $i);
my $wait = $TIMEOUT_SECS;
+ $buffer = '';
$SIG{ALRM} = sub { die "Timed out!"; };
eval {
alarm( $wait );
Please sign in to comment.
Something went wrong with that request. Please try again.