# 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 upgrade
    # 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
}