[interchange] Add configuration time warning on overriding subroutines.

Stefan Hornburg interchange-cvs at icdevgroup.org
Wed Jul 21 08:24:45 UTC 2010


commit 7d59ad43050a25e72778d9937cbe6c6e1758a980
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date:   Wed Jul 21 10:23:32 2010 +0200

    Add configuration time warning on overriding subroutines.

 lib/Vend/Config.pm |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/Config.pm b/lib/Vend/Config.pm
index b36420d..78350ea 100644
--- a/lib/Vend/Config.pm
+++ b/lib/Vend/Config.pm
@@ -5330,6 +5330,10 @@ sub parse_subroutine {
 
 	$name =~ s/\s+//g;
 
+	if (exists $c->{$name}) {
+		config_warn(errmsg("Overriding subroutine %s", $name));
+	}
+	
 	# Untainting
 	$value =~ /((?s:.)*)/;
 	$value = $1;



More information about the interchange-cvs mailing list