remove cache
* remove cache, cache setup is not easy, todays servers do not really * need it anymore * add prototypes and fix parameter issues * suppress redefinition
This commit is contained in:
@@ -1,7 +1,8 @@
|
||||
package config;
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
use warnings;
|
||||
no warnings 'redefine';
|
||||
|
||||
use FindBin();
|
||||
use Config::General();
|
||||
@@ -11,13 +12,13 @@ our @EXPORT_OK = qw(get set);
|
||||
|
||||
my $config = undef;
|
||||
|
||||
sub set {
|
||||
sub set($) {
|
||||
my $value = shift;
|
||||
$config = $value;
|
||||
return;
|
||||
}
|
||||
|
||||
sub get {
|
||||
sub get($) {
|
||||
my $filename = shift;
|
||||
|
||||
return $config if ( defined $config ) && ( $config->{cache}->{cache_config} == 1 );
|
||||
|
||||
Reference in New Issue
Block a user