Update of /cvsroot/fink/fink/perlmod/Fink/SelfUpdate
In directory 

Modified Files:
      Tag: selfupdate_classes
Log Message:
Nuke SU::*::method_name() methods.

Index: Base.pm
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate/Attic/Base.pm,v
retrieving revision
retrieving revision
diff -u -d -r1.1.2.6 -r1.1.2.7
--- Base.pm     21 Mar 2007 01:32:56 -0000
+++ Base.pm     21 Mar 2007 02:11:51 -0000
@@ -39,37 +39,20 @@
 =over 4
-=item method_name
-       my $method = Fink::SelfUpdate::$method->method_name();
-       $config->set_param("SelfUpdateMethod", $method);
-Returns a string for the name of this selfupdate method, suitable for
-use in F<fink.conf>. This value will be handled case-insensitively
-within fink (converted to all lower-case). Defaults to the subclass
-name, converted to lower-case.
-sub method_name {
-       my $class = shift;
-       $class = ref($class) if ref($class);  # find class if called as object
-       $class =~ s/.*:://;  # just the subclass
-       return lc($class);
 =item description
        my $label = Fink::SelfUpdate::$method->description();
 Returns a short description of this method, similar to the Description
-field of a package. Defaults to the method_name.
+field of a package. Defaults to the package-name (no leading classes)
+as lower-case.
-sub description { $_[0]->method_name() }
+sub description {
+       require Fink::SelfUpdate;
+       &Fink::SelfUpdate::class2methodname($_[0]);
 =item system_check

Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
Fink-commits mailing list

Reply via email to