summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'dev-perl/AppConfig/files/blocksep.patch')
-rw-r--r--dev-perl/AppConfig/files/blocksep.patch74
1 files changed, 0 insertions, 74 deletions
diff --git a/dev-perl/AppConfig/files/blocksep.patch b/dev-perl/AppConfig/files/blocksep.patch
deleted file mode 100644
index b9affd8a7211..000000000000
--- a/dev-perl/AppConfig/files/blocksep.patch
+++ /dev/null
@@ -1,74 +0,0 @@
-diff -burN AppConfig-1.56.orig/lib/AppConfig/File.pm AppConfig-1.56/lib/AppConfig/File.pm
---- AppConfig-1.56.orig/lib/AppConfig/File.pm 2004-02-04 02:28:28.000000000 -0800
-+++ AppConfig-1.56/lib/AppConfig/File.pm 2004-05-28 15:08:31.432761817 -0700
-@@ -44,6 +44,7 @@
- STATE => $state, # AppConfig::State ref
- DEBUG => $state->_debug(), # store local copy of debug
- PEDANTIC => $state->_pedantic, # and pedantic flags
-+ BLOCKSEP => $state->_blocksep, # and block separator
- };
-
- bless $self, $class;
-@@ -87,7 +88,7 @@
- my $flag;
-
- # take a local copy of the state to avoid much hash dereferencing
-- my ($state, $debug, $pedantic) = @$self{ qw( STATE DEBUG PEDANTIC ) };
-+ my ($state, $debug, $pedantic, $blocksep) = @$self{ qw( STATE DEBUG PEDANTIC BLOCKSEP ) };
-
- # we want to install a custom error handler into the AppConfig::State
- # which appends filename and line info to error messages and then
-@@ -201,7 +202,7 @@
- $flag = $1;
-
- # $variable gets any $prefix
-- $variable = $prefix . '_' . $variable
-+ $variable = $prefix . $blocksep . $variable
- if length $prefix;
-
- # if the variable doesn't exist, we call set() to give
-diff -burN AppConfig-1.56.orig/lib/AppConfig/State.pm AppConfig-1.56/lib/AppConfig/State.pm
---- AppConfig-1.56.orig/lib/AppConfig/State.pm 2004-02-04 02:11:23.000000000 -0800
-+++ AppConfig-1.56/lib/AppConfig/State.pm 2004-05-28 14:42:23.588164697 -0700
-@@ -57,7 +57,7 @@
-
- # internal values that AUTOLOAD should provide access to
- my %METHFLAGS;
-- @METHFLAGS{ qw( PEDANTIC ) } = ();
-+ @METHFLAGS{ qw( PEDANTIC BLOCKSEP ) } = ();
-
- # variable attributes that may be specified in GLOBAL;
- my @GLOBAL_OK = qw( DEFAULT EXPAND VALIDATE ACTION ARGS ARGCOUNT );
-@@ -98,6 +98,7 @@
- PEDANTIC => 0, # return immediately on parse warnings
- EHANDLER => undef, # error handler (let's hope we don't need it!)
- ERROR => '', # error message
-+ BLOCKSEP => '_', # separator between [block] and variable name
- };
-
- bless $self, $class;
-@@ -509,8 +510,8 @@
- };
-
-
-- # CASE, CREATE and PEDANTIC are stored as they are
-- $opt =~ /^CASE|CREATE|PEDANTIC$/i && do {
-+ # CASE, CREATE, PEDANTIC and BLOCKSEP are stored as they are
-+ $opt =~ /^CASE|CREATE|PEDANTIC|BLOCKSEP$/i && do {
- $self->{ uc $opt } = $cfg->{ $opt };
- next;
- };
-@@ -1020,6 +1021,13 @@
- DEBUG (and also PEDANTIC) values of the state at that time. Subsequent
- changes to the AppConfig::State debug value will not affect them.
-
-+=item BLOCKSEP
-+
-+When parsing configuration files that are grouped using constructions
-+like [block], this string parameter determines what is used to
-+separate the name of the block from the name of each variable
-+contained within it. If unspecified, BLOCKSEP defaults to '_'.
-+
- =item GLOBAL
-
- The GLOBAL option allows default values to be set for the DEFAULT, ARGCOUNT,