|
Lines 374-380
Link Here
|
| 374 |
my($self, $key) = @_; |
374 |
my($self, $key) = @_; |
| 375 |
|
375 |
|
| 376 |
# check for cached value (which may be undef so we use exists not defined) |
376 |
# check for cached value (which may be undef so we use exists not defined) |
| 377 |
return $self->{$key} if exists $self->{$key}; |
377 |
#return $self->{$key} if exists $self->{$key}; |
| 378 |
|
378 |
|
| 379 |
return $self->fetch_string($key); |
379 |
return $self->fetch_string($key); |
| 380 |
} |
380 |
} |
|
Lines 530-536
Link Here
|
| 530 |
sub DESTROY { } |
530 |
sub DESTROY { } |
| 531 |
|
531 |
|
| 532 |
sub AUTOLOAD { |
532 |
sub AUTOLOAD { |
| 533 |
require 'Config_heavy.pl'; |
533 |
my $cfgfile = 'Config_heavy.pl'; |
|
|
534 |
if (defined $ENV{PERL_ARCHLIB} ) |
| 535 |
{ |
| 536 |
$cfgfile = "$ENV{PERL_ARCHLIB}/Config_heavy.pl"; |
| 537 |
} |
| 538 |
require $cfgfile; |
| 534 |
goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; |
539 |
goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; |
| 535 |
die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; |
540 |
die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; |
| 536 |
} |
541 |
} |
