[Rt-commit] r14500 - in rt/branches/3.999-DANGEROUS: lib/RT

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jul 25 04:23:09 2008
New Revision: 14500

Modified:
   rt/branches/3.999-DANGEROUS/   (props changed)
   rt/branches/3.999-DANGEROUS/lib/RT/Installer.pm

Log:
 r14960 at sunnavys-mb:  sunnavy | 2008-07-25 15:16:00 +0800
 name fixes for Installer.pm


Modified: rt/branches/3.999-DANGEROUS/lib/RT/Installer.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Installer.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Installer.pm	Fri Jul 25 04:23:09 2008
@@ -252,14 +252,14 @@
     };
 }
 
-sub Meta {
+sub meta {
     my $class = shift;
     my $type  = shift;
     return $Meta{$type} if $type;
     return \%Meta;
 }
 
-sub CurrentValue {
+sub current_value {
     my $class = shift;
     my $type  = shift;
     $type = $class if !ref $class && $class && $class ne 'RT::Installer';
@@ -271,7 +271,7 @@
       : scalar RT->config->get($type);
 }
 
-sub CurrentValues {
+sub current_values {
     my $class = shift;
     my @types = @_;
     push @types, $class if !ref $class && $class && $class ne 'RT::Installer';
@@ -279,12 +279,12 @@
     return { map { $_ => CurrentValue($_) } @types };
 }
 
-sub ConfigFile {
+sub config_file {
     require File::Spec;
     return File::Spec->catfile( $RT::EtcPath, 'RT_SiteConfig.pm' );
 }
 
-sub SaveConfig {
+sub save_config {
     my $class = shift;
 
     my $file = $class->config_file;