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

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2005-08-19 18:13:50 GMT
Modified:  lib/Vend Parse.pm
Log:
Add new pragma: no_default_reparse.

It makes the default Reparse setting false, which can be (as always)
overridden by the tag's Reparse setting, and finally by the reparse=X
tag attribute.

I almost never use reparse in any form, and thus prefer, for speed and
expectation purposes, to have it not be the default. If it's still wanted,
it can be turned on for that particular use only.

Revision  Changes    Path
2.36      +7 -3      interchange/lib/Vend/Parse.pm


rev 2.36, prev_rev 2.35
Index: Parse.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Parse.pm,v
retrieving revision 2.35
retrieving revision 2.36
diff -u -u -r2.35 -r2.36
--- Parse.pm	18 Aug 2005 18:37:00 -0000	2.35
+++ Parse.pm	19 Aug 2005 18:13:49 -0000	2.36
@@ -1,6 +1,6 @@
 # Vend::Parse - Parse Interchange tags
 # 
-# $Id: Parse.pm,v 2.35 2005/08/18 18:37:00 jon Exp $
+# $Id: Parse.pm,v 2.36 2005/08/19 18:13:49 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.35 $, 10);
+$VERSION = substr(q$Revision: 2.36 $, 10);
 
 @EXPORT = ();
 @EXPORT_OK = qw(find_matching_end);
@@ -709,7 +709,11 @@
 
 	$attr->{enable_html} = 1 if $Vend::Cfg->{Promiscuous};
 	$attr->{reparse} = 1
-		unless (defined $NoReparse{$tag} || defined $attr->{'reparse'});
+		unless (
+			defined $NoReparse{$tag}
+			|| defined $attr->{reparse}
+			|| $::Pragma->{no_default_reparse}
+		);
 
 	my ($routine, at args);