[interchange-cvs] interchange - racke modified 2 files

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2008-09-21 11:40:27 GMT
Modified:  .        WHATSNEW-5.7
Modified:  lib/Vend Interpolate.pm
Log:
Vend::Interpolate::interpolate_html returns undef on undefined input text.
This allows to determine whether $Tag->include fails or just produces an
empty string.

Revision  Changes    Path
2.11                 interchange/WHATSNEW-5.7


rev 2.11, prev_rev 2.10
Index: WHATSNEW-5.7
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.7,v
retrieving revision 2.10
retrieving revision 2.11
diff -u -r2.10 -r2.11
--- WHATSNEW-5.7	12 Sep 2008 22:07:31 -0000	2.10
+++ WHATSNEW-5.7	21 Sep 2008 11:40:27 -0000	2.11
@@ -15,6 +15,10 @@
 
 * refined error message for missing actions.
 
+* Vend::Interpolate::interpolate_html returns undef on undefined input text.
+  This allows to determine whether $Tag->include fails or just produces an
+  empty string.
+
 Search
 ------
 



2.308                interchange/lib/Vend/Interpolate.pm


rev 2.308, prev_rev 2.307
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.307
retrieving revision 2.308
diff -u -r2.307 -r2.308
--- Interpolate.pm	12 Sep 2008 21:59:48 -0000	2.307
+++ Interpolate.pm	21 Sep 2008 11:40:27 -0000	2.308
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.307 2008-09-12 21:59:48 racke Exp $
+# $Id: Interpolate.pm,v 2.308 2008-09-21 11:40:27 racke Exp $
 #
 # Copyright (C) 2002-2008 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -28,7 +28,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.307 $, 10);
+$VERSION = substr(q$Revision: 2.308 $, 10);
 
 @EXPORT = qw (
 
@@ -644,6 +644,8 @@
 
 sub interpolate_html {
 	my ($html, $wantref, $opt) = @_;
+
+	return undef if ! defined($html);
 	return undef if $Vend::NoInterpolate;
 	my ($name, @post);
 	my ($bit, %post);