pf-tools/pf-tools: typo

[parmelan-guest at users.alioth.debian.org]

details:   http://hg.debian.org/hg/pf-tools/pf-tools/rev/0299b0be8501
changeset: 1357:0299b0be8501
user:      shad
date:      Fri Dec 05 17:09:33 2014 +0100
description:
typo

diffstat:

 TODO                          |   2 +-
 lib/PFTools/Update/ADDFILE.pm |  21 +++++++++------------
 2 files changed, 10 insertions(+), 13 deletions(-)

diffs (60 lines):

diff -r ab49d5433a3f -r 0299b0be8501 TODO
--- a/TODO	Fri Dec 05 16:54:17 2014 +0100
+++ b/TODO	Fri Dec 05 17:09:33 2014 +0100
@@ -63,4 +63,4 @@
 NF utiliser Net::IP pour calculer les alias en fonction du netmask
    (entre autres)
 MM pflaunch possibilité de mettre des règles iptables "en dur" dans la conf
-
+MM include a SHORTHOSTTYPE variable that will be HOSTTYPE without POPNAME
diff -r ab49d5433a3f -r 0299b0be8501 lib/PFTools/Update/ADDFILE.pm
--- a/lib/PFTools/Update/ADDFILE.pm	Fri Dec 05 16:54:17 2014 +0100
+++ b/lib/PFTools/Update/ADDFILE.pm	Fri Dec 05 17:09:33 2014 +0100
@@ -62,16 +62,12 @@
     $tmp = get_tmp_dest($dest);
 
     # Removing trailing space from source
-    if (!$ref_section->{'source'}) {
+    if ( !$ref_section->{'source'} ) {
         my @search_dirs = (
-            'HOSTSITE',
-            'HOST',
-            'SHORTHOSTHOSTSITE',
-            'SHORTHOSTHOST',
-            'CONFIGSITE',
-            'CONFIG',
+            'HOSTSITE',   'HOST', 'SHORTHOSTSITE', 'SHORTHOST',
+            'CONFIGSITE', 'CONFIG',
         );
-        SEARCH_DIR:
+    SEARCH_DIR:
         foreach my $search_dir (@search_dirs) {
             my @search_files = (
                 qq{$search_dir:%SECTIONNAME%.%HOSTDIGITS%},
@@ -80,13 +76,13 @@
             foreach my $search_file (@search_files) {
                 $source = get_source( $search_file,
                     $options->{'host'}, $hash_subst );
-                if (-e $source) {
-                $ref_section->{source} = $search_file;
+                if ( -e $source ) {
+                    $ref_section->{source} = $search_file;
                     last SEARCH_DIR;
                 }
             }
         }
-    }        
+    }
     else {
         $ref_section->{'source'} =~ s{\A\s*}{}xms;
         $ref_section->{'source'} =~ s{\s*\z}{}xms;
@@ -95,7 +91,8 @@
             unlink $source;
             foreach my $splitsource ( split q{ }, $ref_section->{'source'} ) {
                 $splitsource
-                    = get_source( $splitsource, $options->{'host'}, $hash_subst );
+                    = get_source( $splitsource, $options->{'host'},
+                    $hash_subst );
                 if ( !-f $splitsource ) {
                     carp colored(
                         qq{ERROR: $splitsource no such file or directory},