r28067 - in /trunk/dh-make-perl/lib/Debian: Dependencies.pm Dependency.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Thu Dec 11 14:26:58 UTC 2008


Author: dmn
Date: Thu Dec 11 14:26:56 2008
New Revision: 28067

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28067
Log:
Dependency/Dependencies: make stringification method private

Modified:
    trunk/dh-make-perl/lib/Debian/Dependencies.pm
    trunk/dh-make-perl/lib/Debian/Dependency.pm

Modified: trunk/dh-make-perl/lib/Debian/Dependencies.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/Dependencies.pm?rev=28067&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Dependencies.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Dependencies.pm Thu Dec 11 14:26:56 2008
@@ -6,7 +6,7 @@
 use AptPkg::Config;
 use Debian::Dependency;
 
-use overload '""'   => \&stringify;
+use overload '""'   => \&_stringify;
 
 =head1 NAME
 
@@ -74,7 +74,7 @@
 
 =cut
 
-sub stringify {
+sub _stringify {
     my $self = shift;
 
     return join( ', ', @$self );

Modified: trunk/dh-make-perl/lib/Debian/Dependency.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/Dependency.pm?rev=28067&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Dependency.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Dependency.pm Thu Dec 11 14:26:56 2008
@@ -36,7 +36,7 @@
 __PACKAGE__->mk_accessors(qw( pkg ver rel ));
 
 use overload
-    '""'    => \&stringify;
+    '""'    => \&_stringify;
 sub new {
     my $class = shift;
     $class = ref($class) if ref($class);
@@ -55,7 +55,7 @@
     die "Unsupported number of arguments";
 }
 
-sub stringify {
+sub _stringify {
     my $self = shift;
 
     return (




More information about the Pkg-perl-cvs-commits mailing list