Tie::File adds extra lines if recsep is "\n\n"

[Ankur Gupta]

Hi,

Using Tie::File with recsep = "\n\n" adds two extra lines to the
original file when I iterate through the entire file. If I just change
one record then its fine.

Below is the program

use strict;
use warnings;

use Tie::File;

my @array;
tie @array, 'Tie::File', 'file', recsep => "\n\n" or die $!;

foreach my $rec ( @array ){
   print $rec;
}

untie @array;

$-> diff file file.orig
8464,8465d8463
<
<

Right now, I am tieing the file again without recsep and popping two records.

tie @array, 'Tie::File', 'file' or die $!;
pop(@array);
pop(@array);
untie @array;

This fixes the problem but is there a better way to get around this?

perl version is 5.8.0 and latest version of Tie::File (0.97).

Thanks,

--Ankur

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>