On Thu, Jan 06, 2005 at 10:03:46AM -0600, Bryan Baldus wrote: > Perhaps the: > # for ease, make the newlines match this platform > $lifrec =~ s/[\x0a\x0d]+/\n/g if defined $lifrec; > > in _next() should be moved (or added as duplicate code) to decode() just > between the lines: > my $marc = MARC::Record->new(); > ### $text =~ s/[\x0a\x0d]+/\n/g if defined $text; > my @lines = split( /\n/, $text );
Give it a try and see if the tests pass :-) //Ed