[SCM] Debian packaging of libsoftware-license-perl branch, master, updated. 89531df455f5ddcd25a7d92e6aed7ce5fd0270b7

Dominique Dumont dod at debian.org
Tue Oct 4 11:26:44 UTC 2011


The following commit has been merged in the master branch:
commit 89531df455f5ddcd25a7d92e6aed7ce5fd0270b7
Author: Dominique Dumont <dod at debian.org>
Date:   Tue Oct 4 13:25:46 2011 +0200

    use safer require

diff --git a/debian/patches/create-license-from-short-name b/debian/patches/create-license-from-short-name
index 47e6540..8814333 100644
--- a/debian/patches/create-license-from-short-name
+++ b/debian/patches/create-license-from-short-name
@@ -1,6 +1,6 @@
 --- a/lib/Software/License.pm
 +++ b/lib/Software/License.pm
-@@ -11,13 +11,35 @@
+@@ -11,13 +11,37 @@
  use Sub::Install ();
  use Text::Template ();
  
@@ -27,8 +27,10 @@
 +    Carp::croak "no license short name specified" unless $arg->{short_name};
 +    my $lic = $short_name{delete $arg->{short_name}} ;
 +    Carp::croak "Unknow license short name specified" unless $lic;
-+    my $lic_class = __PACKAGE__.'::'.$lic ;
-+    eval "require $lic_class;";
++
++    my $lic_file = my $lic_class = __PACKAGE__.'::'.$lic ;
++    $lic_file =~ s!::!/!g ;
++    require "$lic_file.pm";
 +    return $lic_class->new ($arg) ;
 +  }
 +  else {

-- 
Debian packaging of libsoftware-license-perl



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