[interchange] Keep Documentation and Version information out of server memory and structure files.
Stefan Hornburg
interchange-cvs at icdevgroup.org
Wed Jul 14 08:49:33 UTC 2010
commit 09354a7198e6b7e6634bfcbe764267fcbe593375
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date: Wed Jul 14 10:43:27 2010 +0200
Keep Documentation and Version information out of server memory and structure files.
lib/Vend/Config.pm | 9 +++++++++
1 files changed, 9 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/Config.pm b/lib/Vend/Config.pm
index 4938e9e..5eeb75f 100644
--- a/lib/Vend/Config.pm
+++ b/lib/Vend/Config.pm
@@ -278,6 +278,7 @@ for( values %extmap ) {
version Version
));
+my %tagSkip = ( qw! Documentation 1 Version 1 !);
my %tagAry = ( qw! Order 1 Required 1 ! );
my %tagHash = ( qw!
@@ -5039,6 +5040,10 @@ sub parse_mapped_code {
my $repos = $C ? ($C->{CodeDef} ||= {}) : ($Global::CodeDef ||= {});
+ if ($tagSkip{$p}) {
+ return $repos;
+ }
+
my $dest = $valid_dest{lc $p} || $current_dest{$tag} || $CodeDest;
if(! $dest) {
@@ -5112,6 +5117,10 @@ sub parse_tag {
$tag =~ s/\W//g
and config_warn("Bad characters removed from '%s'.", $tag);
+ if ($tagSkip{$p}) {
+ return $c;
+ }
+
if($CodeDest and $CodeDest eq 'CoreTag') {
return $c unless $Global::TagInclude->{$tag} || $Global::TagInclude->{ALL};
}
More information about the interchange-cvs
mailing list