? ext/.iTunesDB.pm.swp
Index: ext/XMLhelper.pm
===================================================================
RCS file: /sources/gnupod/gnupod/src/ext/XMLhelper.pm,v
retrieving revision 1.69
diff -r1.69 XMLhelper.pm
320c320,325
< 		$p->parsefile($xmlin);
---
> 		my $pi = $p->parse_start;
> 		open my $xmlfh, '<', $xmlin or die "open error for $xmlin: $!";
> 		local $/ = \4096;
> 		while (<$xmlfh>) { $pi->parse_more($_); }
> 		$pi->parse_done;
> 		close $xmlfh;
