pf-tools commit: r459 [ccaillet-guest] - /trunk/lib/PFTools/Conf.pm
parmelan-guest at users.alioth.debian.org
parmelan-guest at users.alioth.debian.org
Wed Mar 7 16:16:32 CET 2007
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 {
More information about the Pf-tools-commits
mailing list