[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