[libnet-duo-perl] 04/12: Remove useless $_ in style/module-version.t test

Russ Allbery eagle at eyrie.org
Mon Jan 8 02:56:06 UTC 2018


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

rra pushed a commit to annotated tag release/1.01
in repository libnet-duo-perl.

commit 464d4a547858db1a2b1a844817fbe7c30e9a6782
Author: Russ Allbery <rra at cpan.org>
Date:   Sun Aug 16 17:28:09 2015

    Remove useless $_ in style/module-version.t test
    
    Caught by a newer version of Perl::Critic.
---
 t/style/module-version.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/style/module-version.t b/t/style/module-version.t
index cf6ef13..cc027be 100755
--- a/t/style/module-version.t
+++ b/t/style/module-version.t
@@ -65,7 +65,7 @@ sub module_files {
             $File::Find::prune = 1;
             return;
         }
-        if ($_ =~ m{ [.] pm \z }xms) {
+        if (m{ [.] pm \z }xms) {
             push(@files, $File::Find::name);
         }
         return;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-duo-perl.git



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