Why are you checking for tied'ness of $args{print_to}? Under mod_perl
STDOUT is tied, so $result is not tied. Moreover, output() simply
returns undef in that case, and there is not way to know that
something went wrong: you just get an empty page.
I removed the check, and all works ok under mod_perl. I guess Apache
has to override stdout anyway.
Could something like the following be applied?
Index: Template.pm
===================================================================
RCS file: /home/cvs/src/perl-HTML-Template/Template.pm,v
retrieving revision 1.5
diff -u -u -r1.5 Template.pm
--- Template.pm 2003/05/28 13:04:24 1.5
+++ Template.pm 2003/05/28 15:49:08
@@ -2615,7 +2615,7 @@
my $result = '';
tie $result, 'HTML::Template::PRINTSCALAR', $args{print_to}
- if defined $args{print_to} and not tied $args{print_to};
+ if defined $args{print_to};
my $type;
my $parse_stack_length = $#parse_stack;
--alexm
-------------------------------------------------------
This SF.NET email is sponsored by: eBay
Great deals on office technology -- on eBay now! Click here:
http://adfarm.mediaplex.com/ad/ck/711-11697-6916-5
_______________________________________________
Html-template-users mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/html-template-users
