[interchange-cvs] interchange - jon modified lib/Vend/Parse.pm

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2005-08-18 18:37:01 GMT
Modified:  lib/Vend Parse.pm
Log:
Remove duplicate AdminSub check. The exact same check is done right
before this one, but with more specific error messages.

Revision  Changes    Path
2.35      +2 -6      interchange/lib/Vend/Parse.pm


rev 2.35, prev_rev 2.34
Index: Parse.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Parse.pm,v
retrieving revision 2.34
retrieving revision 2.35
diff -u -u -r2.34 -r2.35
--- Parse.pm	9 May 2005 02:35:27 -0000	2.34
+++ Parse.pm	18 Aug 2005 18:37:00 -0000	2.35
@@ -1,6 +1,6 @@
 # Vend::Parse - Parse Interchange tags
 # 
-# $Id: Parse.pm,v 2.34 2005/05/09 02:35:27 mheins Exp $
+# $Id: Parse.pm,v 2.35 2005/08/18 18:37:00 jon Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -36,7 +36,7 @@
 
 @ISA = qw(Exporter Vend::Parser);
 
-$VERSION = substr(q$Revision: 2.34 $, 10);
+$VERSION = substr(q$Revision: 2.35 $, 10);
 
 @EXPORT = ();
 @EXPORT_OK = qw(find_matching_end);
@@ -420,10 +420,6 @@
 
 	}
 
-	die errmsg("Unauthorized for admin tag %s", $tag)
-		if defined $Vend::Cfg->{AdminSub}{$tag} and
-			($Vend::restricted or ! $Vend::admin);
-	
 	if (! defined $Routine{$tag} and $Global::AccumulateCode) {
 #::logDebug("missing $tag, trying code_from_file");
 		if($Alias{$tag}) {