Change bug URL from http://rt.perl.org to https://rt.perl.org
authorMax Maischein <corion@corion.net>
Fri, 11 Oct 2019 09:10:28 +0000 (11:10 +0200)
committerMax Maischein <corion@corion.net>
Fri, 11 Oct 2019 11:37:16 +0000 (13:37 +0200)
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:
MANIFEST
Porting/corelist.pl
Porting/release_managers_guide.pod
cygwin/cygwin.c
dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm
dist/Locale-Maketext/ChangeLog
dist/Safe/Safe.pm
dist/Storable/Makefile.PL
dist/threads-shared/t/stress.t
dist/threads/lib/threads.pm
handy.h
t/base/lex.t
t/benchmark/rt26188-speed-up-keys-on-empty-hash.t
t/io/data.t
t/io/errno.t
t/op/readdir.t
utils/perlbug.PL

index 8159ac8..7405277 100644 (file)
--- 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
index ce74ed4..9267a7f 100755 (executable)
@@ -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 .= ");";
index c1b8343..3b39afd 100644 (file)
@@ -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.
index 6b11efe..b79af68 100644 (file)
@@ -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)
index 230be1c..09677a5 100644 (file)
@@ -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
index ac25aa6..caa405a 100644 (file)
@@ -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.
 
index e9f0967..3f4cb21 100644 (file)
@@ -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 (...)
index cdcc3e0..dcd058c 100644 (file)
@@ -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',
index 1dd95e3..ccdeb0e 100644 (file)
@@ -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")
index 1b99567..3df4b44 100644 (file)
@@ -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 115efda..ee34943 100644 (file)
--- 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 */
index 414aa1f..faeb37d 100644 (file)
@@ -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;
index 9436395..db2ceb6 100644 (file)
@@ -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
 
index 03779a9..a13e1dd 100644 (file)
@@ -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__$/) {
index d8fc4b2..2539043 100644 (file)
@@ -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;
index fa155d9..5444b3e 100644 (file)
@@ -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 = ".";
index 910f2aa..f4dc7bb 100644 (file)
@@ -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