[lintian] 04/08: c/source-copyright.pm: Avoid "my ($_)", which is experimental

[Niels Thykier <nthykier@alioth.debian.org>]

This is an automated email from the git hooks/post-receive script.

nthykier pushed a commit to branch master
in repository lintian.

commit f1a32c2a6bea8231bdbdee4333b511fa37f891f4
Author: Niels Thykier <niels@thykier.net>
Date:   Sun Aug 25 18:10:32 2013 +0200

    c/source-copyright.pm: Avoid "my ($_)", which is experimental
    
    Signed-off-by: Niels Thykier <niels@thykier.net>
---
 checks/source-copyright.pm |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/checks/source-copyright.pm b/checks/source-copyright.pm
index ff47539..7632910 100644
--- a/checks/source-copyright.pm
+++ b/checks/source-copyright.pm
@@ -258,11 +258,11 @@ sub run {
 }
 
 sub split_licenses {
-    my ($_) = @_;
-    return () unless defined;
-    return () if /\n/;
-    s/[(),]//;
-    return map { "\L$_" } (split /\s++(?:and|or)\s++/);
+    my ($license) = @_;
+    return () unless defined($license);
+    return () if $license =~ /\n/;
+    $license =~ s/[(),]//;
+    return map { "\L$_" } (split(m/\s++(?:and|or)\s++/, $license));
 }
 
 sub get_field {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git