Hugo wrote:
> :Row 320 is the row marked with +
> :
> : # Checking for existing installations
> : my $package;
> : my $old = {};
> : my $config = {};
> : foreach $package ('mysql', 'mSQL', 'mSQL1') {
> : my $class = "DBD::${package}::Install";
> : # Try to find an existing configuration
> : eval qq{
> : require $class;
> : \$old->{\$package} = require $class\::Config;
> : };
> :+ if ($old->{$package}) {
> : $config->{$package} = $old->{$package};
> : } else {
> : $config->{$package} = $class->new($DBD_VERSION, $VERSION);
> : }
>
> The line number is a known bug in perl: the error is really occurring
> at the $class->new(...) in the 'else' clause (line 323).
Ok, that explains the thing. Depending on the Perl version it might
be that
$class->method
is invalid.
Monty, please try
$config->{$package} = eval "$class->new(\$DBD_VERSION, \$VERSION)";
Thanks,
Jochen
--
Jochen Wiedmann joe@stripped
Life has brown and green eyes. :-) +49 7123 14887