trafficserver-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From zw...@apache.org
Subject svn commit: r1103748 - /trafficserver/traffic/trunk/contrib/perl/ConfigMgmt/lib/Apache/TS/Config/Records.pm
Date Mon, 16 May 2011 14:27:46 GMT
Author: zwoop
Date: Mon May 16 14:27:46 2011
New Revision: 1103748

URL: http://svn.apache.org/viewvc?rev=1103748&view=rev
Log:
TS-786 Simplify load a little

Modified:
    trafficserver/traffic/trunk/contrib/perl/ConfigMgmt/lib/Apache/TS/Config/Records.pm

Modified: trafficserver/traffic/trunk/contrib/perl/ConfigMgmt/lib/Apache/TS/Config/Records.pm
URL: http://svn.apache.org/viewvc/trafficserver/traffic/trunk/contrib/perl/ConfigMgmt/lib/Apache/TS/Config/Records.pm?rev=1103748&r1=1103747&r2=1103748&view=diff
==============================================================================
--- trafficserver/traffic/trunk/contrib/perl/ConfigMgmt/lib/Apache/TS/Config/Records.pm (original)
+++ trafficserver/traffic/trunk/contrib/perl/ConfigMgmt/lib/Apache/TS/Config/Records.pm Mon
May 16 14:27:46 2011
@@ -29,9 +29,6 @@
 # use Apache::TS::Config::Records;
 #
 # my $recedit = new Apache::TS::Config::Records(file => "/tmp/records.config");
-#
-# $recedit->load();
-#
 # $recedit->set(conf => "proxy.config.log.extended_log_enabled",
 #               val => "123");
 # $recedit->write("/tmp/records.config.new");
@@ -57,12 +54,14 @@ sub new {
     my ($class, %args) = @_;
     my $self = {};
 
-    $self->{filename} = $args{file};   # Filename to open when loading and saving
+    $self->{_filename} = $args{file};  # Filename to open when loading and saving
     $self->{_configs} = [];            # Storage, and to to preserve order
     $self->{_lookup} = {};             # For faster lookup, indexes into the above
     $self->{_ix} = -1;                 # Empty
     bless $self, $class;
 
+    $self->load() if $self->{_filename};
+
     return $self;
 }
 
@@ -73,7 +72,7 @@ sub new {
 sub load {
     my $self = shift;
     my %args = @_;
-    my $filename = $args{filename} || $self->{filename} || die "Need a filename to load";
+    my $filename = $args{filename} || $self->{_filename} || die "Need a filename to load";
 
     open(FH, "<$filename");
     while (<FH>) {



Mime
View raw message