r75270 - /trunk/libmoosex-types-perl/debian/patches/fix-bad-whatis-entry.patch

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Jun  8 15:13:05 2011
New Revision: 75270

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75270
Log:
patch:
- minimize by removing unnecessary hunks (that changed trailing whitespace)
- add more DEP3 headers

Modified:
    trunk/libmoosex-types-perl/debian/patches/fix-bad-whatis-entry.patch

Modified: trunk/libmoosex-types-perl/debian/patches/fix-bad-whatis-entry.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-types-perl/debian/patches/fix-bad-whatis-entry.patch?rev=75270&op=diff
==============================================================================
--- trunk/libmoosex-types-perl/debian/patches/fix-bad-whatis-entry.patch (original)
+++ trunk/libmoosex-types-perl/debian/patches/fix-bad-whatis-entry.patch Wed Jun  8 15:13:05 2011
@@ -1,8 +1,14 @@
 Description: Fix the manpage-has-bad-whatis-entry lintian warning for
  MooseX::Types::UndefinedType.
+Origin: vendor
+Forwarded: no
+Author: Alessandro Ghedini <al3xbio at gmail.com>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2011-06-08
+
 --- a/lib/MooseX/Types/UndefinedType.pm
 +++ b/lib/MooseX/Types/UndefinedType.pm
-@@ -11,12 +11,15 @@
+@@ -11,6 +11,9 @@
  
  use overload '""'     => sub { shift->name },
               fallback => 1;
@@ -12,29 +18,3 @@
  
  =head1 DESCRIPTION
  
--Whenever a type handle function (e.g. C<Int()> can't find a type 
-+Whenever a type handle function (e.g. C<Int()> can't find a type
- constraint under it's full name, it assumes it has not yet been defined.
--It will then return an instance of this class, handling only 
-+It will then return an instance of this class, handling only
- stringification, name and possible identification of undefined types.
- 
- Later, when you try to use the Undefined Type Constraint, autovivification will
-@@ -87,7 +90,7 @@
- 
- sub AUTOLOAD {
-     my ($self, @args)  = @_;
--    my ($method) = our $AUTOLOAD =~ /([^:]+)$/;    
-+    my ($method) = our $AUTOLOAD =~ /([^:]+)$/;
- 
-     if(my $type_constraint = $self->__autovivify) {
-         return $type_constraint->$method(@args);
-@@ -110,7 +113,7 @@
- =head1 SEE ALSO
- 
- L<MooseX::Types::Moose>,
--L<Moose::Util::TypeConstraints>, 
-+L<Moose::Util::TypeConstraints>,
- L<Moose::Meta::TypeConstraint>,
- L<Carp::Clan>
-