From 9102485ab1b406c4639e0715f7d4fa14a9beb0d6 Mon Sep 17 00:00:00 2001
From: "Thierry.Vignaud" <thierry.vignaud@gmail.com>
Date: Thu, 22 May 2014 15:37:17 +0200
Subject: reorder functions for next commit

---
 perl-install/common.pm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'perl-install/common.pm')

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 {
-- 
cgit v1.2.1