| CARVIEW |
Select Language
HTTP/2 302
server: nginx
date: Tue, 29 Jul 2025 12:01:16 GMT
content-type: text/plain; charset=utf-8
content-length: 0
x-archive-redirect-reason: found capture at 20210117101108
location: https://web.archive.org/web/20210117101108/https://perl5.git.perl.org/perl5.git/commitdiff/HEAD
server-timing: captures_list;dur=0.495696, exclusion.robots;dur=0.017477, exclusion.robots.policy;dur=0.007894, esindex;dur=0.010023, cdx.remote;dur=158.029191, LoadShardBlock;dur=179.462582, PetaboxLoader3.datanode;dur=159.048833
x-app-server: wwwb-app204
x-ts: 302
x-tr: 371
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
set-cookie: SERVER=wwwb-app204; path=/
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
HTTP/2 200
server: nginx
date: Tue, 29 Jul 2025 12:01:16 GMT
content-type: application/xhtml+xml; charset=utf-8
x-archive-orig-date: Sun, 17 Jan 2021 10:11:08 GMT
x-archive-orig-server: Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips
x-archive-orig-keep-alive: timeout=5, max=100
x-archive-orig-connection: Keep-Alive
x-archive-orig-x-crawler-transfer-encoding: chunked
x-archive-orig-content-length: 7971
x-archive-guessed-content-type: text/html
x-archive-guessed-charset: utf-8
memento-datetime: Sun, 17 Jan 2021 10:11:08 GMT
link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sun, 17 Jan 2021 10:11:08 GMT", ; rel="memento"; datetime="Sun, 17 Jan 2021 10:11:08 GMT", ; rel="next memento"; datetime="Wed, 26 Jan 2022 21:26:58 GMT", ; rel="last memento"; datetime="Mon, 30 Jan 2023 01:44:02 GMT"
content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org
x-archive-src: CC-MAIN-2021-04-1610703511903.11-0022/CC-MAIN-20210117081748-20210117111748-00440.warc.gz
server-timing: captures_list;dur=0.500542, exclusion.robots;dur=0.017781, exclusion.robots.policy;dur=0.008587, esindex;dur=0.010887, cdx.remote;dur=47.011420, LoadShardBlock;dur=217.408591, PetaboxLoader3.datanode;dur=131.822755, PetaboxLoader3.resolve;dur=159.581781, load_resource;dur=119.398777
x-app-server: wwwb-app204
x-ts: 200
x-tr: 438
server-timing: TR;dur=0,Tw;dur=50,Tc;dur=1
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
perl5.git.perl.org Git - perl5.git/commitdiff
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3cf0845)
raw | patch | inline | side by side (parent: 3cf0845)
| author | Karl Williamson <khw@cpan.org> | |
| Sun, 10 Jan 2021 03:41:12 +0000 (20:41 -0700) | ||
| committer | Karl Williamson <khw@cpan.org> | |
| Sun, 17 Jan 2021 00:01:41 +0000 (17:01 -0700) |
| t/lib/Cname.pm | patch | blob | blame | history |
diff --git a/t/lib/Cname.pm b/t/lib/Cname.pm
--- a/t/lib/Cname.pm
+++ b/t/lib/Cname.pm
our $Evil='A';
sub translator {
+
+ # Returns the input as a name, except for these special ones
+
my $str = shift;
if ( $str eq 'EVIL' ) {
# Returns A first time, AB second, ABC third ... A-ZA the 27th time.
if ( $str eq 'TOO-LONG-STR') {
return 'A' x 256;
}
+
return $str;
}