diff options
author | Dan Book <grinnz@grinnz.com> | 2019-11-26 19:04:57 -0500 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-11-26 17:55:48 -0800 |
commit | 8034715d6688b4ce5c0cd7447b497ad2b011ddaf (patch) | |
tree | 7c566313f7d25b6710faa8e04bf7fe6bc6ade892 /t/io | |
parent | b4285b0dabe98fc37362ed5367ba070593c8cbbc (diff) | |
download | perl-8034715d6688b4ce5c0cd7447b497ad2b011ddaf.tar.gz |
Convert issue links from rt.perl.org to GitHub
Diffstat (limited to 't/io')
-rw-r--r-- | t/io/data.t | 6 | ||||
-rw-r--r-- | t/io/eintr_print.t | 2 | ||||
-rw-r--r-- | t/io/errno.t | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/t/io/data.t b/t/io/data.t index a13e1dd21b..0f72de8644 100644 --- a/t/io/data.t +++ b/t/io/data.t @@ -20,7 +20,7 @@ run_multiple_progs('', \*DATA); done_testing(); __END__ -# https://rt.perl.org/rt3/Ticket/Display.html?id=28106#txn-82657 +# https://github.com/Perl/perl5/issues/7207#issuecomment-543940952 while (<DATA>) { chomp; print "$.: '$_'\n"; @@ -35,7 +35,7 @@ EXPECT 2: '2' 3: '3' ######## -# https://rt.perl.org/rt3/Ticket/Display.html?id=28106#txn-83113 +# https://github.com/Perl/perl5/issues/7207#issuecomment-543940955 my $line1 = <DATA>; `echo foo`; my $line2 = <DATA>; @@ -48,7 +48,7 @@ EXPECT ok 1 ok 2 ######## -# https://rt.perl.org/rt3/Ticket/Attachment/828796/403048/perlbug.rep.txt +# https://github.com/Perl/perl5/issues/7207#issuecomment-543940992 my @data_positions = tell(DATA); while (<DATA>){ if (/^__DATA__$/) { diff --git a/t/io/eintr_print.t b/t/io/eintr_print.t index cc7130e077..207511302d 100644 --- a/t/io/eintr_print.t +++ b/t/io/eintr_print.t @@ -1,7 +1,7 @@ #!./perl # print should not return EINTR -# fails under 5.14.x see https://rt.perl.org/rt3/Ticket/Display.html?id=119097 +# fails under 5.14.x see https://github.com/Perl/perl5/issues/13142 # also fails under 5.8.x BEGIN { diff --git a/t/io/errno.t b/t/io/errno.t index 2539043194..71e985b6b8 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. -# https://rt.perl.org/rt3/Ticket/Display.html?id=39060 +# https://github.com/Perl/perl5/issues/8431 use strict; use Config; |