Update of /cvsroot/fink/fink/perlmod/Fink/SelfUpdate
In directory 
sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv30737/perlmod/Fink/SelfUpdate

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


Index: Base.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate/Attic/Base.pm,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -d -r1.1.2.6 -r1.1.2.7
--- Base.pm     21 Mar 2007 01:32:56 -0000      1.1.2.6
+++ Base.pm     21 Mar 2007 02:11:51 -0000      1.1.2.7
@@ -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.
-
-=cut
-
-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.
 
 =cut
 
-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
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits

Reply via email to