[cgiapp] Load_tmpl() minimal clean-up patch - (better) INLINED.

["Emanuele Zeppieri" <suppressed>]

--- Application.pm	Sat Feb 14 03:36:57 2004
+++ Application.pm.new	Fri Apr 09 14:33:13 2004
@@ -382,19 +382,18 @@
 	my $self = shift;
 	my ($tmpl_file, @extra_params) = @_;
 
-	# add tmpl_path to path array of one is set, otherwise add a
path arg
+	# add tmpl_path to path array if one is set, otherwise add a
path arg
 	if (my $tmpl_path = $self->tmpl_path) {
 	        my $found = 0;
 	        for( my $x = 0; $x < @extra_params; $x += 2 ) {
 		        if ($extra_params[$x] eq 'path' and 
-		            ref $extra_params[$x+1]     and
 		            ref $extra_params[$x+1] eq 'ARRAY') {
 		                unshift @{$extra_params[$x+1]},
$tmpl_path;
 		                $found = 1;
 		                last;
 		        }
 		}
-	    push(@extra_params, path => [ $tmpl_path ]) unless $found;
+	    	push(@extra_params, path => [ $tmpl_path ]) unless
$found;
 	}
 
 	require HTML::Template;


---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/suppressed/
              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: suppressed
For additional commands, e-mail: suppressed