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

[Mark Stosberg <suppressed>]

On 2004-04-09, Emanuele Zeppieri <suppressed> wrote:
> --- 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;
>  	}

Thanks,

I've added this to the CGI::App CVS tree now. 

	Mark

-- 
 . . . . . . . . . . . . . . . . . . . . . . . . . . . 
   Mark Stosberg            Principal Developer  
   suppressed     Summersault, LLC     
   765-939-9301 ext 202     database driven websites
 . . . . . http://www.summersault.com/ . . . . . . . .


---------------------------------------------------------------------
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