r27863 - /trunk/dh-make-perl/dh-make-perl

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Sun Dec 7 17:16:00 UTC 2008


Author: dmn
Date: Sun Dec  7 17:15:57 2008
New Revision: 27863

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27863
Log:
Dep::new(): pass to parse() if called with single non-ref argument

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27863&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Sun Dec  7 17:15:57 2008
@@ -374,6 +374,7 @@
 # SYNOPSIS
 #
 #   my $d = Dep->new( 'perl' );             # simple dependency
+#   my $d = Dep->new('perl (>= 5.10)');     # also parses a single argument
 #   my $d = Dep->new( 'perl', '5.10' );     # dependency with a version
 #   my $d = Dep->new( 'perl', '>=', '5.10' );
 #                               # dependency with version and relation
@@ -406,7 +407,7 @@
 
     return $class->SUPER::new(@_) if ref( $_[0] );
 
-    return $class->SUPER::new( { pkg => $_[0] } )
+    return $class->parse( $_[0] )
         if @_ == 1;
 
     return $class->SUPER::new( { pkg => $_[0], rel => '>=', ver => $_[1] } )




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