diff options
| author | Thierry.Vignaud <thierry.vignaud@gmail.com> | 2014-05-22 15:37:17 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-05-24 01:48:15 +0200 |
| commit | 9102485ab1b406c4639e0715f7d4fa14a9beb0d6 (patch) | |
| tree | 2fd2781cfa82208060efcb55e6ae3e973a78c99d | |
| parent | 8fa12e2669329b20355ef1285db3dd28de3496fc (diff) | |
| download | drakx-9102485ab1b406c4639e0715f7d4fa14a9beb0d6.tar drakx-9102485ab1b406c4639e0715f7d4fa14a9beb0d6.tar.gz drakx-9102485ab1b406c4639e0715f7d4fa14a9beb0d6.tar.bz2 drakx-9102485ab1b406c4639e0715f7d4fa14a9beb0d6.tar.xz drakx-9102485ab1b406c4639e0715f7d4fa14a9beb0d6.zip | |
reorder functions for next commit
| -rw-r--r-- | perl-install/common.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index a5716d98f..f1b3d3981 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -27,20 +27,17 @@ our $SECTORSIZE = 512; #- Functions #-##################################################################################### -sub P { - my ($s_singular, $s_plural, $nb, @para) = @_; - sprintf(translate($s_singular, $s_plural, $nb), @para); -} - sub N { my ($s, @para) = @_; sprintf(translate($s), @para); } -sub N_ { $_[0] } +sub N_ { $_[0] } -sub makedev { ($_[0] << 8) | $_[1] } -sub unmakedev { $_[0] >> 8, $_[0] & 0xff } +sub P { + my ($s_singular, $s_plural, $nb, @para) = @_; + sprintf(translate($s_singular, $s_plural, $nb), @para); +} sub translate_real { my ($s, $o_plural, $o_nb) = @_; @@ -112,6 +109,9 @@ sub nonblock { fcntl($F, c::F_SETFL(), fcntl($F, c::F_GETFL(), 0) | c::O_NONBLOCK()) or die "cannot fcntl F_SETFL: $!"; } +sub makedev { ($_[0] << 8) | $_[1] } +sub unmakedev { $_[0] >> 8, $_[0] & 0xff } + #- return a size in sector #- ie MB(1) is 2048 sectors, which is 1MB sub MB { |