Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14662
Modified Files:
ChangeLog Config.pm
Log Message:
Use Base::new_from_properties as back end for Config::new_with_path
Index: Config.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Config.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -d -r1.49 -r1.50
--- Config.pm 23 May 2005 18:18:55 -0000 1.49
+++ Config.pm 23 May 2005 18:21:19 -0000 1.50
@@ -95,6 +95,8 @@
my $config = Fink::Config->new_with_path($file, { Basepath => "/sw" });
+See new_from_properties for more information.
+
=cut
sub new_with_path {
@@ -104,15 +106,8 @@
my $props = Fink::Services::read_properties($path);
- my $self = { _path => $path };
- @{$self}{map lc, keys %$defaults} = values %$defaults;
-
- while (my($key, $value) = each %$props) {
- $self->{$key} = $value unless $key =~ /^_/;
- }
-
- $self = bless $self, $class;
- $self->initialize();
+ my $self = $class->new_from_properties({%$defaults, %$props});
+ $self->{_path} = $path;
return $self;
}
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.1011
retrieving revision 1.1012
diff -u -d -r1.1011 -r1.1012
--- ChangeLog 22 May 2005 15:25:30 -0000 1.1011
+++ ChangeLog 23 May 2005 18:21:19 -0000 1.1012
@@ -1,3 +1,7 @@
+2005-05-23 Daniel Macks <[EMAIL PROTECTED]>
+
+ * Config.pm: Use new_from_properties as back end for new_with_path
+
2005-05-22 Dave Morrison <[EMAIL PROTECTED]>
* Bootstrap.pm: recognize 10.4.1; also, say that 10.4 is "supported
-------------------------------------------------------
This SF.Net email is sponsored by Oracle Space Sweepstakes
Want to be the first software developer in space?
Enter now for the Oracle Space Sweepstakes!
http://ads.osdn.com/?ad_id=7412&alloc_id=16344&op=click
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
