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