Login | Register For Free | Help
Search for: (Advanced)

Mailing List Archive: Interchange: cvs

[interchange] Extend PREFIX-include to work in hash-based loops

 

 

Interchange cvs RSS feed   Index | Next | Previous | View Threaded


interchange-cvs at icdevgroup

Jan 25, 2012, 1:59 PM

Post #1 of 1 (233 views)
Permalink
[interchange] Extend PREFIX-include to work in hash-based loops

commit cb2f14e4a8841d81467335ef09e8b38631d142c9
Author: Jon Jensen <jon [at] endpoint>
Date: Wed Jan 25 14:57:25 2012 -0700

Extend PREFIX-include to work in hash-based loops

Submitted by Jeff Boes <jeff [at] endpoint> from a private commit as of
2011-03-15, a copy of the same part of iterate_array_list, but original
author/tester unknown.

lib/Vend/Interpolate.pm | 13 +++++++++++++
1 files changed, 13 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/Interpolate.pm b/lib/Vend/Interpolate.pm
index f16c6e1..668073f 100644
--- a/lib/Vend/Interpolate.pm
+++ b/lib/Vend/Interpolate.pm
@@ -4289,6 +4289,19 @@ sub iterate_hash_list {
$nc and local(@Hash_code{keys %$nc}) = values %$nc;

#::logDebug("iterating hash $i to $end. count=$count opt_select=$opt_select hash=" . uneval($hash));
+
+ $text =~ s{
+ $B$QR{_include}
+ }{
+ my $filename = $1;
+
+ $Data_cache{"/$filename"} or do {
+ my $content = Vend::Util::readfile($filename);
+ vars_and_comments(\$content);
+ $Data_cache{"/$filename"} = $content;
+ };
+ }igex;
+
1 while $text =~ s#$IB$QR{_header_param_if}$IE[-_]header[-_]param\1\]#
(defined $opt->{$3} ? $opt->{$3} : '')
? pull_if($5,$2,$4,$opt->{$3})

_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs

Interchange cvs RSS feed   Index | Next | Previous | View Threaded
 
 


Interested in having your list archived? Contact Gossamer Threads
 
  Web Applications & Managed Hosting Powered by Gossamer Threads Inc.