| CARVIEW |
Select Language
HTTP/2 302
server: nginx
date: Tue, 29 Jul 2025 12:46:34 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=1.306113, exclusion.robots;dur=0.035527, exclusion.robots.policy;dur=0.022988, esindex;dur=0.012796, cdx.remote;dur=148.439668, LoadShardBlock;dur=244.075852, PetaboxLoader3.datanode;dur=57.600873, PetaboxLoader3.resolve;dur=124.191532
x-app-server: wwwb-app202
x-ts: 302
x-tr: 432
server-timing: TR;dur=0,Tw;dur=557,Tc;dur=1
set-cookie: SERVER=wwwb-app202; 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:46:38 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.559988, exclusion.robots;dur=0.026153, exclusion.robots.policy;dur=0.015865, esindex;dur=0.010850, cdx.remote;dur=1993.294798, LoadShardBlock;dur=233.788553, PetaboxLoader3.datanode;dur=79.640983, PetaboxLoader3.resolve;dur=259.293365, load_resource;dur=179.273296
x-app-server: wwwb-app202
x-ts: 200
x-tr: 2450
server-timing: TR;dur=0,Tw;dur=925,Tc;dur=0
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;
}