# Reads a line from an IO:File'ish object
sub _get_line {
    my $self = shift();
 
    # Turn off warnings for the rest of this sub (at some point I'll u
+pgrade
    # to 'no warnings "uninitialized"', but don't want to force a Perl
+ version
    # on people yet)
    local ($^W);
 
    # Localize the input record separator before changing it so
    # we don't mess up any other part of the application running
    # us that relies on it
    local $/ = $self->{_IRS};
 
    # Read the line itself
    $self->{_BUFFER} .= $self->{_FILEHANDLE}->getline();  # <-------- 
+Line 208
}
[download]

It looks like there is an attempt to disable warnings in the sub. Does it not work?

Also, this bug report looks relevant: Eliminate warnings when EOF is reached.