Change bug URL from http://rt.perl.org to https://rt.perl.org

This updates the bug tracker URL from http://rt.perl.org
to https://rt.perl.org.

There is a place in the code, in corelist.pl, that is sensitive
to the URL of the bug tracker. This now understands both
versions of the bug tracker URL. Ideally, this will be
consolidated once the dust settles.

This patch also updates ExtUtils::CBuilder, Safe, threads
and threads::shared to point to the new bug tracker URL.

17 files changed, 32 insertions, 31 deletions

diff --git a/MANIFEST b/MANIFEST
index 8159ac8cc1..74052779cd 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -5750,7 +5750,7 @@ t/op/exec.t			See if exec, system and qx work
 t/op/exists_sub.t		See if exists(&sub) works
 t/op/exp.t			See if math functions work
 t/op/fh.t			See if filehandles work
-t/op/filehandle.t		Tests for http://rt.perl.org/rt3/Ticket/Display.html?id=72586
+t/op/filehandle.t		Tests for https://rt.perl.org/rt3/Ticket/Display.html?id=72586
 t/op/filetest.t			See if file tests work
 t/op/filetest_stack_ok.t	See if file tests leave their argument on the stack
 t/op/filetest_t.t		See if -t file test works
diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index ce74ed42c8..9267a7f417 100755
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -292,6 +292,7 @@ foreach my $module ( sort keys %module_to_upstream ) {
 
     $bug_tracker = defined $bug_tracker ? quote($bug_tracker) : 'undef';
 	next if $bug_tracker eq "'http://rt.perl.org/perlbug/'";
+	next if $bug_tracker eq "'https://rt.perl.org/perlbug/'";
     $tracker .= sprintf "    %-24s=> %s,\n", "'$module'", $bug_tracker;
 }
 $tracker .= ");";
diff --git a/Porting/release_managers_guide.pod b/Porting/release_managers_guide.pod
index c1b8343891..3b39afd448 100644
--- a/Porting/release_managers_guide.pod
+++ b/Porting/release_managers_guide.pod
@@ -143,7 +143,7 @@ Andreas' email address at:
 
 =head3 rt.perl.org update access
 
-Make sure you have permission to close tickets on L<http://rt.perl.org/>
+Make sure you have permission to close tickets on L<https://rt.perl.org/>
 so you can respond to bug reports as necessary during your stint.  If you
 don't, make an account (if you don't have one) and contact the pumpking
 with your username to get ticket-closing permission.
diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c
index 6b11efed7f..b79af68e58 100644
--- a/cygwin/cygwin.c
+++ b/cygwin/cygwin.c
@@ -219,7 +219,7 @@ XS(Cygwin_cwd)
     dXSARGS;
     char *cwd;
 
-    /* See http://rt.perl.org/rt3/Ticket/Display.html?id=38628 
+    /* See https://rt.perl.org/rt3/Ticket/Display.html?id=38628
        There is Cwd->cwd() usage in the wild, and previous versions didn't die.
      */
     if(items > 1)
diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm
index 230be1ce44..09677a5c18 100644
--- a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm
+++ b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm
@@ -7,7 +7,7 @@ use Perl::OSType qw/os_type/;
 
 use warnings;
 use strict;
-our $VERSION = '0.280232'; # VERSION
+our $VERSION = '0.280233'; # VERSION
 our @ISA;
 
 # We only use this once - don't waste a symbol table entry on it.
@@ -272,7 +272,7 @@ for VMS.
 ExtUtils::CBuilder is maintained as part of the Perl 5 core.  Please
 submit any bug reports via the F<perlbug> tool included with Perl 5.
 Bug reports will be included in the Perl 5 ticket system at
-L<http://rt.perl.org>.
+L<https://rt.perl.org>.
 
 The Perl 5 source code is available at L<https://perl5.git.perl.org/perl.git>
 and ExtUtils-CBuilder may be found in the F<dist/ExtUtils-CBuilder> directory
diff --git a/dist/Locale-Maketext/ChangeLog b/dist/Locale-Maketext/ChangeLog
index ac25aa6a8e..caa405a0da 100644
--- a/dist/Locale-Maketext/ChangeLog
+++ b/dist/Locale-Maketext/ChangeLog
@@ -155,7 +155,7 @@ Revision history for Perl suite Locale::Maketext
     * Release 1.11_01
 
     Fixed perlbug #33938
-    http://rt.perl.org/rt3//Public/Bug/Display.html?id=3393
+    https://rt.perl.org/rt3//Public/Bug/Display.html?id=3393
 
     Started cleaning up source per Perl::Critic.
 
diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index e9f096713d..3f4cb21065 100644
--- a/dist/Safe/Safe.pm
+++ b/dist/Safe/Safe.pm
@@ -3,7 +3,7 @@ package Safe;
 use 5.003_11;
 use Scalar::Util qw(reftype refaddr);
 
-$Safe::VERSION = "2.40";
+$Safe::VERSION = "2.41";
 
 # *** Don't declare any lexicals above this point ***
 #
@@ -753,7 +753,7 @@ any I<further> compilation that the already compiled code may try to perform.
 This is particularly useful when applied to code references returned from reval().
 
 (It also provides a kind of workaround for RT#60374: "Safe.pm sort {} bug with
--Dusethreads". See L<http://rt.perl.org/rt3//Public/Bug/Display.html?id=60374>
+-Dusethreads". See L<https://rt.perl.org/rt3//Public/Bug/Display.html?id=60374>
 for I<much> more detail.)
 
 =head2 wrap_code_refs_within (...)
diff --git a/dist/Storable/Makefile.PL b/dist/Storable/Makefile.PL
index cdcc3e0087..dcd058c9d8 100644
--- a/dist/Storable/Makefile.PL
+++ b/dist/Storable/Makefile.PL
@@ -24,7 +24,7 @@ WriteMakefile(
     ABSTRACT_FROM   => 'Storable.pm',
     ($ExtUtils::MakeMaker::VERSION > 6.45 ?
      (META_MERGE        => { resources =>
-                               { bugtracker => 'http://rt.perl.org/perlbug/' },
+                               { bugtracker => 'https://rt.perl.org/perlbug/' },
                             provides    => {
                                 'Storable'  => {
                                     file        => 'Storable.pm',
diff --git a/dist/threads-shared/t/stress.t b/dist/threads-shared/t/stress.t
index 1dd95e3959..ccdeb0eaaf 100644
--- a/dist/threads-shared/t/stress.t
+++ b/dist/threads-shared/t/stress.t
@@ -12,7 +12,7 @@ BEGIN {
         exit(0);
     }
 
-    # http://lists.alioth.debian.org/pipermail/perl-maintainers/2011-June/002285.html
+    # https://lists.alioth.debian.org/pipermail/perl-maintainers/2011-June/002285.html
     # There _is_ TLS support on m68k, but this stress test is overwhelming
     # for the hardware
     if ($^O eq 'linux' && $Config{archname} =~ /^m68k/) {
@@ -179,7 +179,7 @@ use threads::shared;
     } elsif ($timeouts) {
         # Frequently fails under MSWin32 due to deadlocking bug in Windows
         # hence test is TODO under MSWin32
-        #   http://rt.perl.org/rt3/Public/Bug/Display.html?id=41574
+        #   https://rt.perl.org/rt3/Public/Bug/Display.html?id=41574
         #   http://support.microsoft.com/kb/175332
         if ($^O eq 'MSWin32') {
             print("not ok 1 # TODO - not reliable under MSWin32\n")
diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm
index 1b99567ef2..3df4b44e30 100644
--- a/dist/threads/lib/threads.pm
+++ b/dist/threads/lib/threads.pm
@@ -5,7 +5,7 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '2.22';      # remember to update version in POD!
+our $VERSION = '2.23';      # remember to update version in POD!
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -134,7 +134,7 @@ threads - Perl interpreter-based threads
 
 =head1 VERSION
 
-This document describes threads version 2.21
+This document describes threads version 2.23
 
 =head1 WARNING
 
@@ -914,7 +914,7 @@ C<-E<gt>import()>) after any threads are started, and in such a way that no
 other threads are started afterwards.
 
 If the above does not work, or is not adequate for your application, then file
-a bug report on L<http://rt.cpan.org/Public/> against the problematic module.
+a bug report on L<https://rt.cpan.org/Public/> against the problematic module.
 
 =item Memory consumption
 
@@ -1090,7 +1090,7 @@ determine whether your system supports it.
 
 In prior perl versions, spawning threads with open directory handles would
 crash the interpreter.
-L<[perl #75154]|http://rt.perl.org/rt3/Public/Bug/Display.html?id=75154>
+L<[perl #75154]|https://rt.perl.org/rt3/Public/Bug/Display.html?id=75154>
 
 =item Detached threads and global destruction
 
@@ -1118,8 +1118,8 @@ unreferenced scalars.  However, such warnings are harmless, and may safely be
 ignored.
 
 You can search for L<threads> related bug reports at
-L<http://rt.cpan.org/Public/>.  If needed submit any new bugs, problems,
-patches, etc. to: L<http://rt.cpan.org/Public/Dist/Display.html?Name=threads>
+L<https://rt.cpan.org/Public/>.  If needed submit any new bugs, problems,
+patches, etc. to: L<https://rt.cpan.org/Public/Dist/Display.html?Name=threads>
 
 =back
 
@@ -1137,14 +1137,14 @@ L<https://github.com/Dual-Life/threads>
 
 L<threads::shared>, L<perlthrtut>
 
-L<http://www.perl.com/pub/a/2002/06/11/threads.html> and
-L<http://www.perl.com/pub/a/2002/09/04/threads.html>
+L<https://www.perl.com/pub/a/2002/06/11/threads.html> and
+L<https://www.perl.com/pub/a/2002/09/04/threads.html>
 
 Perl threads mailing list:
-L<http://lists.perl.org/list/ithreads.html>
+L<https://lists.perl.org/list/ithreads.html>
 
 Stack size discussion:
-L<http://www.perlmonks.org/?node_id=532956>
+L<https://www.perlmonks.org/?node_id=532956>
 
 Sample code in the I<examples> directory of this distribution on CPAN.
 
diff --git a/handy.h b/handy.h
index 115efda342..ee349432a3 100644
--- a/handy.h
+++ b/handy.h
@@ -2089,7 +2089,7 @@ _generic_utf8_safe(classnum, p, e, _is_utf8_FOO_with_len(classnum, p, e))
 
 /* To prevent S_scan_word in toke.c from hanging, we have to make sure that
  * IDFIRST is an alnum.  See
- * http://rt.perl.org/rt3/Ticket/Display.html?id=74022 for more detail than you
+ * https://rt.perl.org/rt3/Ticket/Display.html?id=74022 for more detail than you
  * ever wanted to know about.  (In the ASCII range, there isn't a difference.)
  * This used to be not the XID version, but we decided to go with the more
  * modern Unicode definition */
diff --git a/t/base/lex.t b/t/base/lex.t
index 414aa1fceb..faeb37dc30 100644
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -396,7 +396,7 @@ for(qw< require goto last next redo CORE::dump >) {
     print "# $@" if $@;
 }
 
-# http://rt.perl.org/rt3/Ticket/Display.html?id=56880
+# https://rt.perl.org/rt3/Ticket/Display.html?id=56880
 my $counter = 0;
 eval 'v23: $counter++; goto v23 unless $counter == 2';
 print "not " unless $counter == 2;
diff --git a/t/benchmark/rt26188-speed-up-keys-on-empty-hash.t b/t/benchmark/rt26188-speed-up-keys-on-empty-hash.t
index 94363950b1..db2ceb68b9 100644
--- a/t/benchmark/rt26188-speed-up-keys-on-empty-hash.t
+++ b/t/benchmark/rt26188-speed-up-keys-on-empty-hash.t
@@ -25,7 +25,7 @@ the number or list of keys from an empty hash is about the same
 
 This test tests against RT ticket #26188
 
-L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=26188>
+L<https://rt.perl.org/rt3/Public/Bug/Display.html?id=26188>
 
 =cut
 
diff --git a/t/io/data.t b/t/io/data.t
index 03779a9177..a13e1dd21b 100644
--- a/t/io/data.t
+++ b/t/io/data.t
@@ -20,7 +20,7 @@ run_multiple_progs('', \*DATA);
 done_testing();
 
 __END__
-# http://rt.perl.org/rt3/Ticket/Display.html?id=28106#txn-82657
+# https://rt.perl.org/rt3/Ticket/Display.html?id=28106#txn-82657
 while (<DATA>) {
     chomp;
     print "$.: '$_'\n";
@@ -35,7 +35,7 @@ EXPECT
 2: '2'
 3: '3'
 ########
-# http://rt.perl.org/rt3/Ticket/Display.html?id=28106#txn-83113
+# https://rt.perl.org/rt3/Ticket/Display.html?id=28106#txn-83113
 my $line1 = <DATA>;
 `echo foo`;
 my $line2 = <DATA>;
@@ -48,7 +48,7 @@ EXPECT
 ok 1
 ok 2
 ########
-# http://rt.perl.org/rt3/Ticket/Attachment/828796/403048/perlbug.rep.txt
+# https://rt.perl.org/rt3/Ticket/Attachment/828796/403048/perlbug.rep.txt
 my @data_positions = tell(DATA);
 while (<DATA>){
     if (/^__DATA__$/) {
diff --git a/t/io/errno.t b/t/io/errno.t
index d8fc4b2c19..2539043194 100644
--- a/t/io/errno.t
+++ b/t/io/errno.t
@@ -2,7 +2,7 @@
 # vim: ts=4 sts=4 sw=4:
 
 # $! may not be set if EOF was reached without any error.
-# http://rt.perl.org/rt3/Ticket/Display.html?id=39060
+# https://rt.perl.org/rt3/Ticket/Display.html?id=39060
 
 use strict;
 use Config;
diff --git a/t/op/readdir.t b/t/op/readdir.t
index fa155d9e36..5444b3ef74 100644
--- a/t/op/readdir.t
+++ b/t/op/readdir.t
@@ -57,8 +57,8 @@ is(ref $fh{abc}, 'GLOB');
 isnt("$fh", "$fh[0]");
 isnt("$fh", "$fh{abc}");
 
-# See that perl does not segfault upon readdir($x="."); 
-# http://rt.perl.org/rt3/Ticket/Display.html?id=68182
+# See that perl does not segfault upon readdir($x=".");
+# https://rt.perl.org/rt3/Ticket/Display.html?id=68182
 fresh_perl_like(<<'EOP', qr/^no crash/, {}, 'RT #68182');
   eval {
     my $x = ".";
diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 910f2aa442..f4dc7bbe94 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -1448,7 +1448,7 @@ offers of frosty beverages.  (Please do be kind to the maintainers.
 Harassing or flaming them is likely to have the opposite effect of the
 one you want.)
 
-Feel free to update the ticket about your bug on http://rt.perl.org
+Feel free to update the ticket about your bug on https://rt.perl.org
 if a new version of Perl is released and your bug is still present.
 
 =head1 OPTIONS