pf-tools commit: r459 [ccaillet-guest] - /trunk/lib/PFTools/Conf.pm

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

Author: ccaillet-guest
Date: Wed Mar  7 15:16:32 2007
New Revision: 459

URL: http://svn.debian.org/wsvn/pf-tools/?sc=1&rev=459
Log:
Preventing bareword on hash key for hash SUBST by quoting key name

Modified:
    trunk/lib/PFTools/Conf.pm

Modified: trunk/lib/PFTools/Conf.pm
URL: http://svn.debian.org/wsvn/pf-tools/trunk/lib/PFTools/Conf.pm?rev=459&op=diff
==============================================================================
--- trunk/lib/PFTools/Conf.pm (original)
+++ trunk/lib/PFTools/Conf.pm Wed Mar  7 15:16:32 2007
@@ -82,15 +82,15 @@
 $SUBST{'HOSTCLUSTER'} = $1.$2;
 $SUBST{'HOSTNODEINDEX'} = $3;
 
-$SUBST{HOSTNUM} = $SUBST{HOSTDIGITS};
-$SUBST{HOSTNUM} =~ s/^0*//;
-if ( $SUBST{HOSTNUM} eq "" ) {
-    $SUBST{HOSTNUM} = 0;
-}
-
-$SUBST{HOSTMINUTE} = $SUBST{HOSTNUM} % 60;
-
-$SUBST{HOSTHOUR} = $SUBST{HOSTNUM} % 24;
+$SUBST{'HOSTNUM'} = $SUBST{'HOSTDIGITS'};
+$SUBST{'HOSTNUM'} =~ s/^0*//;
+if ( $SUBST{'HOSTNUM'} eq "" ) {
+    $SUBST{'HOSTNUM'} = 0;
+}
+
+$SUBST{'HOSTMINUTE'} = $SUBST{'HOSTNUM'} % 60;
+
+$SUBST{'HOSTHOUR'} = $SUBST{'HOSTNUM'} % 24;
 
 # Subst_vars
 sub Subst_vars {