From 4bb7dbb89a129685493f964cc50890560c5865dc Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Thu, 15 Nov 2007 21:35:26 +0200 Subject: [PATCH] Dpkg::Arch: Force a sane input record separator for file parsing functions --- ChangeLog | 7 +++++++ scripts/Dpkg/Arch.pm | 3 +++ 2 files changed, 10 insertions(+) diff --git a/ChangeLog b/ChangeLog index 07b45e8a..9bf88316 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2007-11-15 Guillem Jover + + * scripts/Dpkg/Arch.pm (read_cputable): Force a sane input record + separator. + (read_ostable): Likewise. + (read_triplettable): Likewise. + 2007-11-04 Guillem Jover * scripts/Makefile.am (clean): Set PERL5LIB to force use of shipped diff --git a/scripts/Dpkg/Arch.pm b/scripts/Dpkg/Arch.pm index 714a63e7..080ee591 100644 --- a/scripts/Dpkg/Arch.pm +++ b/scripts/Dpkg/Arch.pm @@ -104,6 +104,7 @@ sub get_valid_arches() sub read_cputable { local $_; + local $/ = "\n"; open CPUTABLE, "$pkgdatadir/cputable" or syserr(_g("unable to open cputable")); @@ -120,6 +121,7 @@ sub read_cputable sub read_ostable { local $_; + local $/ = "\n"; open OSTABLE, "$pkgdatadir/ostable" or syserr(_g("unable to open ostable")); @@ -138,6 +140,7 @@ sub read_triplettable() read_cputable() if (!@cpu); local $_; + local $/ = "\n"; open TRIPLETTABLE, "$pkgdatadir/triplettable" or syserr(_g("unable to open triplettable")); -- 2.39.5