diff options
Diffstat (limited to 'scripts/Dpkg/Arch.pm')
-rw-r--r-- | scripts/Dpkg/Arch.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/scripts/Dpkg/Arch.pm b/scripts/Dpkg/Arch.pm index 2c1471f9c..231b9bb3f 100644 --- a/scripts/Dpkg/Arch.pm +++ b/scripts/Dpkg/Arch.pm @@ -18,7 +18,7 @@ package Dpkg::Arch; use strict; use warnings; -our $VERSION = "0.01"; +our $VERSION = '0.01'; use base qw(Exporter); our @EXPORT_OK = qw(get_raw_build_arch get_raw_host_arch @@ -60,7 +60,7 @@ my %debarch_to_debtriplet; # variables when they are not requested. my $build_arch = `dpkg --print-architecture`; - syserr("dpkg --print-architecture failed") if $? >> 8; + syserr('dpkg --print-architecture failed') if $? >> 8; chomp $build_arch; return $build_arch; @@ -93,7 +93,7 @@ my %debarch_to_debtriplet; if ($gcc_host_gnu_type eq '') { warning(_g("Couldn't determine gcc system type, falling back to " . - "default (native compilation)")); + 'default (native compilation)')); } else { my (@host_archtriplet) = gnutriplet_to_debtriplet($gcc_host_gnu_type); $host_arch = debtriplet_to_debarch(@host_archtriplet); @@ -101,8 +101,8 @@ my %debarch_to_debtriplet; if (defined $host_arch) { $gcc_host_gnu_type = debtriplet_to_gnutriplet(@host_archtriplet); } else { - warning(_g("Unknown gcc system type %s, falling back to " . - "default (native compilation)"), $gcc_host_gnu_type); + warning(_g('Unknown gcc system type %s, falling back to ' . + 'default (native compilation)'), $gcc_host_gnu_type); $gcc_host_gnu_type = ''; } } @@ -147,7 +147,7 @@ sub read_cputable local $/ = "\n"; open my $cputable_fh, '<', "$pkgdatadir/cputable" - or syserr(_g("cannot open %s"), "cputable"); + or syserr(_g('cannot open %s'), 'cputable'); while (<$cputable_fh>) { if (m/^(?!\#)(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/) { $cputable{$1} = $2; @@ -171,7 +171,7 @@ sub read_ostable local $/ = "\n"; open my $ostable_fh, '<', "$pkgdatadir/ostable" - or syserr(_g("cannot open %s"), "ostable"); + or syserr(_g('cannot open %s'), 'ostable'); while (<$ostable_fh>) { if (m/^(?!\#)(\S+)\s+(\S+)\s+(\S+)/) { $ostable{$1} = $2; @@ -204,7 +204,7 @@ sub abitable_load() } close $abitable_fh; } elsif ($! != ENOENT) { - syserr(_g("cannot open %s"), "abitable"); + syserr(_g('cannot open %s'), 'abitable'); } $abitable_loaded = 1; @@ -221,7 +221,7 @@ sub read_triplettable() local $/ = "\n"; open my $triplettable_fh, '<', "$pkgdatadir/triplettable" - or syserr(_g("cannot open %s"), "triplettable"); + or syserr(_g('cannot open %s'), 'triplettable'); while (<$triplettable_fh>) { if (m/^(?!\#)(\S+)\s+(\S+)/) { my $debtriplet = $1; @@ -255,7 +255,7 @@ sub debtriplet_to_gnutriplet(@) return unless defined($abi) && defined($os) && defined($cpu) && exists($cputable{$cpu}) && exists($ostable{"$abi-$os"}); - return join("-", $cputable{$cpu}, $ostable{"$abi-$os"}); + return join('-', $cputable{$cpu}, $ostable{"$abi-$os"}); } sub gnutriplet_to_debtriplet($) |