On Thu Aug 06 14:07:22 2009, SREZIC wrote:
Show quoted text> If you look at
>
http://matrix.cpantesters.org/?dist=CGI-Application-Plugin-
> PageBuilder+0.97
> then you can see that the test suite of
> CGI-Application-Plugin-PageBuilder fails for every perl since 5.9.5.
>
> The failure looks like this:
>
> t/02-init............Error executing run mode 'start': Can't use
> string
> ("0") as an ARRAY ref while "strict refs" in use at
> /usr/home/david/cpantesting/perl-5.9.5/.cpan/build/CGI-Application-
> Plugin-PageBuilder-0.97-
> BCQInw/blib/lib/CGI/Application/Plugin/PageBuilder.pm
> line 119.
> at t/02-init.t line 71
> # Looks like you planned 27 tests but only ran 3.
> # Looks like your test died just after 3.
>
> Regards,
> Slaven
Here's a patch I wrote a couple years ago that solves this. Obviously
the author has not responded to my requests to integrate it :)
diff -urN
CGI-Application-Plugin-PageBuilder-0.97/lib/CGI/Application/Plugin/PageBuilder.pm
CGI-Application-Plugin-PageBuilder-0.97.good/lib/CGI/Application/Plugin/PageBuilder.pm
---
CGI-Application-Plugin-PageBuilder-0.97/lib/CGI/Application/Plugin/PageBuilder.pm
2006-09-15 13:21:26.000000000 -0400
+++
CGI-Application-Plugin-PageBuilder-0.97.good/lib/CGI/Application/Plugin/PageBuilder.pm
2012-03-01 19:56:36.012519473 -0500
@@ -116,7 +116,7 @@
my( $self, $param, $value ) = @_;
return unless $value;
-
${$self->{__PB_TEMPLATE_LIST}}[$#{@{$self->{__PB__TEMPLATE_LIST}}}]->param(
$param, $value );
+ ${$self->{__PB_TEMPLATE_LIST}}[-1]->param( $param, $value );
return $self->pb_build();
}
