On Dec 15, 2004, at 3:04 AM, [EMAIL PROTECTED] wrote:
# Failed test (t/apache.t at line 9)
# Tried to use 'App::Info::HTTPD::Apache'.
# Error: syntax error at /home/.perlsmoke/500504/.cpanplus/5.00504/build/App-Info-0.43/blib/ lib/App/Info/HTTPD/Apache.pm line 1532, near "$meth,"
# syntax error at /home/.perlsmoke/500504/.cpanplus/5.00504/build/App-Info-0.43/blib/ lib/App/Info/HTTPD/Apache.pm line 1540, near ")"
Hrm, damn old Perl. I'm not sure if this is any better for 5.5.4, but does this help?
Index: lib/App/Info/HTTPD/Apache.pm =================================================================== --- lib/App/Info/HTTPD/Apache.pm (revision 937) +++ lib/App/Info/HTTPD/Apache.pm (working copy) @@ -1529,7 +1529,7 @@
unless ($self->{$key}) {
my $bin = $self->bin_dir or return;
- if (my $exe = $u->first_cat_exe([$self->$meth, $exe], $bin)) {
+ if (my $exe = $u->first_cat_exe([$self->$meth(), $exe], $bin)) {
# We found it. Confirm.
$self->{$key} = $self->confirm(
key => $key,
Index: lib/App/Info/RDBMS/PostgreSQL.pm
===================================================================
--- lib/App/Info/RDBMS/PostgreSQL.pm (revision 937)
+++ lib/App/Info/RDBMS/PostgreSQL.pm (working copy)
@@ -553,7 +553,7 @@
unless ($self->{$key}) {
my $bin = $self->bin_dir or return;
- if (my $exe = $u->first_cat_exe([$self->$meth, $exe], $bin)) {
+ if (my $exe = $u->first_cat_exe([$self->$meth(), $exe], $bin)) {
# We found it. Confirm.
$self->{$key} = $self->confirm(
key => $key,
Thanks,
David
