[Bps-public-commit] cpan2rt branch, master, updated. de93cd13eed5866e6e5d6efdb7352c47ac616582

[Dianne Skoll]

The branch, master has been updated
       via  de93cd13eed5866e6e5d6efdb7352c47ac616582 (commit)
       via  742339ab5340fe53b8eb774f3301110309ef1ff4 (commit)
      from  f8c668549b08623a5004490120900e04ac1a08d1 (commit)

Summary of changes:
 Makefile.PL    | 2 ++
 lib/CPAN2RT.pm | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

- Log -----------------------------------------------------------------
commit 742339ab5340fe53b8eb774f3301110309ef1ff4
Author: Dianne Skoll <dianne at bestpractical.com>
Date:   Fri Feb 26 11:45:11 2021 -0500

    Add "use lib '.';" for modern Perl versions

diff --git a/Makefile.PL b/Makefile.PL
index 5efe4f2..bb07919 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,3 +1,5 @@
+use lib '.';
+
 use inc::Module::Install;
 
 name            'CPAN2RT';

commit de93cd13eed5866e6e5d6efdb7352c47ac616582
Author: Dianne Skoll <dianne at bestpractical.com>
Date:   Fri Feb 26 11:46:56 2021 -0500

    Avoid warnings when printing debug messages that include potentially undef variables

diff --git a/lib/CPAN2RT.pm b/lib/CPAN2RT.pm
index d138d03..9d30ea3 100644
--- a/lib/CPAN2RT.pm
+++ b/lib/CPAN2RT.pm
@@ -370,7 +370,8 @@ sub _sync_bugtracker_cpan2rt {
         next unless ($maturity || '') eq 'released';
         next unless ($status   || '') eq 'latest';
 
-        debug { "Got '$dist' ($mailto, $web)" };
+        debug { "Got '$dist' (" . (defined($mailto) ? $mailto : 'undef') .
+                          " ," .  (defined($web)    ? $web :    'undef') . ")" };
 
         # Email based alternative - we don't care if this is rt.cpan.org
         if(defined($mailto) && !($mailto =~ m/rt\.cpan\.org/)) {

-----------------------------------------------------------------------