remove code trying to prevent caching of config objects

plainblack · Jul 7, 2010 · 8943853 · 8943853
1 parent e530222
commit 8943853
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/lib/WebGUI/Upgrade.pm b/lib/WebGUI/Upgrade.pm
@@ -423,7 +423,7 @@ sub createBackup {
     my $self = shift;
     my $config = shift;
     if (! ref $config) {
-        $config = WebGUI::Config->new($config, 1);
+        $config = WebGUI::Config->new($config);
     }
 
     make_path($self->backupPath);
@@ -492,7 +492,7 @@ sub dbhForConfig {
     my $class = shift;
     my $config = shift;
     if (! ref $config) {
-        $config = WebGUI::Config->new($config, 1);
+        $config = WebGUI::Config->new($config);
     }
     return WebGUI::SQL->connect($config);
 }
@@ -509,7 +509,7 @@ sub mysqlCommandLine {
     my $class = shift;
     my $config = shift;
     if (! ref $config) {
-        $config = WebGUI::Config->new($config, 1);
+        $config = WebGUI::Config->new($config);
     }
 
     my $dsn = $config->get('dsn');

diff --git a/lib/WebGUI/Upgrade/Script.pm b/lib/WebGUI/Upgrade/Script.pm
@@ -55,7 +55,7 @@ sub _build_exports {
     my $config_sub = sub () {
         state $config = do {
             require WebGUI::Config;
-            WebGUI::Config->new($configFile, 1);
+            WebGUI::Config->new($configFile);
         };
         return $config;
     };

diff --git a/sbin/spectre.pl b/sbin/spectre.pl
@@ -18,7 +18,7 @@
 use POE::Component::IKC::ClientLite;
 use Spectre::Admin;
 use WebGUI::Paths -inc;
-use WebGUI::Config;
+use Config::JSON;
 use JSON;
 
 $|=1; # disable output buffering
@@ -47,7 +47,7 @@
 pod2usage( verbose => 2 ) if $help;
 pod2usage() unless ($ping||$shutdown||$daemon||$run||$test||$status);
 
-my $config = WebGUI::Config->new( WebGUI::Paths->spectreConfig, 1);
+my $config = Config::JSON->new( WebGUI::Paths->spectreConfig);
 unless (defined $config) {
 	print <<STOP;
 

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
@@ -272,7 +272,7 @@ sub config {
     return $config
         if $config;
     require WebGUI::Config;
-    $config = WebGUI::Config->new($CLASS->file, 1);
+    $config = WebGUI::Config->new($CLASS->file);
     return $config;
 }