summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-05-22 15:37:17 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-05-24 01:48:15 +0200
commit9102485ab1b406c4639e0715f7d4fa14a9beb0d6 (patch)
tree2fd2781cfa82208060efcb55e6ae3e973a78c99d
parent8fa12e2669329b20355ef1285db3dd28de3496fc (diff)
downloaddrakx-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.pm16
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 {