diff options
author | Guillem Jover <guillem@debian.org> | 2016-07-29 21:32:34 +0200 |
---|---|---|
committer | Guillem Jover <guillem@debian.org> | 2016-07-31 12:45:32 +0200 |
commit | cd64cd76c924070a2c1f57bac817216e705b6b52 (patch) | |
tree | 13d08279fe53562eecde8b3aa55b1140691d58ae /scripts/Dpkg/Arch.pm | |
parent | 048f56f78cd7886c1835343ff97b68679a6f7aa6 (diff) | |
download | dpkg-cd64cd76c924070a2c1f57bac817216e705b6b52.tar.gz |
Dpkg: Rename various private methods and functions
Rename private functions names, so that they have an underscore and
more uniform names. This way it is made explicit that those functions
are not expected to be used by external modules, and provide no
guarantees on their API stability.
Diffstat (limited to 'scripts/Dpkg/Arch.pm')
-rw-r--r-- | scripts/Dpkg/Arch.pm | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/scripts/Dpkg/Arch.pm b/scripts/Dpkg/Arch.pm index 969d2e88e..972b21718 100644 --- a/scripts/Dpkg/Arch.pm +++ b/scripts/Dpkg/Arch.pm @@ -204,8 +204,8 @@ Get an array with all currently known Debian architectures. sub get_valid_arches() { - read_cputable(); - read_ostable(); + _load_cputable(); + _load_ostable(); my @arches; @@ -220,7 +220,7 @@ sub get_valid_arches() } my %table_loaded; -sub load_table +sub _load_table { my ($table, $loader) = @_; @@ -239,9 +239,9 @@ sub load_table $table_loaded{$table} = 1; } -sub read_cputable +sub _load_cputable { - load_table('cputable', sub { + _load_table('cputable', sub { if (m/^(?!\#)(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/) { $cputable{$1} = $2; $cputable_re{$1} = $3; @@ -252,9 +252,9 @@ sub read_cputable }); } -sub read_ostable +sub _load_ostable { - load_table('ostable', sub { + _load_table('ostable', sub { if (m/^(?!\#)(\S+)\s+(\S+)\s+(\S+)/) { $ostable{$1} = $2; $ostable_re{$1} = $3; @@ -263,20 +263,20 @@ sub read_ostable }); } -sub abitable_load() +sub _load_abitable() { - load_table('abitable', sub { + _load_table('abitable', sub { if (m/^(?!\#)(\S+)\s+(\S+)/) { $abibits{$1} = $2; } }); } -sub read_triplettable() +sub _load_triplettable() { - read_cputable(); + _load_cputable(); - load_table('triplettable', sub { + _load_table('triplettable', sub { if (m/^(?!\#)(\S+)\s+(\S+)/) { my $debtriplet = $1; my $debarch = $2; @@ -304,8 +304,8 @@ sub debtriplet_to_gnutriplet(@) { my ($abi, $os, $cpu) = @_; - read_cputable(); - read_ostable(); + _load_cputable(); + _load_ostable(); return unless defined($abi) && defined($os) && defined($cpu) && exists($cputable{$cpu}) && exists($ostable{"$abi-$os"}); @@ -319,8 +319,8 @@ sub gnutriplet_to_debtriplet($) my ($gnu_cpu, $gnu_os) = split(/-/, $gnu, 2); return unless defined($gnu_cpu) && defined($gnu_os); - read_cputable(); - read_ostable(); + _load_cputable(); + _load_ostable(); my ($os, $cpu); @@ -377,7 +377,7 @@ sub debtriplet_to_debarch(@) { my ($abi, $os, $cpu) = @_; - read_triplettable(); + _load_triplettable(); if (!defined($abi) || !defined($os) || !defined($cpu)) { return; @@ -394,7 +394,7 @@ sub debarch_to_debtriplet($) return if not defined $arch; - read_triplettable(); + _load_triplettable(); if ($arch =~ /^linux-([^-]*)/) { # XXX: Might disappear in the future, not sure yet. @@ -460,7 +460,7 @@ sub debarch_to_cpuattrs($) my ($abi, $os, $cpu) = debarch_to_debtriplet($arch); if (defined($cpu)) { - abitable_load(); + _load_abitable(); return ($abibits{$abi} // $cpubits{$cpu}, $cpuendian{$cpu}); } else { |