summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2021-01-09 20:41:12 -0700
committerKarl Williamson <khw@cpan.org>2021-01-16 17:01:41 -0700
commitc5f9609a1a8a7a902c023d06c8b2a4c42afce078 (patch)
tree909481349ff0412a1e878142f4c280e4d8a0fd1e
parent3cf084545922950b28fae154dc96f9d4e3e5fc60 (diff)
downloadperl-c5f9609a1a8a7a902c023d06c8b2a4c42afce078.tar.gz
t/lib/Cname.pm: Comment, white-space only
-rw-r--r--t/lib/Cname.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/t/lib/Cname.pm b/t/lib/Cname.pm
index dad356ae66..1c6eca4649 100644
--- a/t/lib/Cname.pm
+++ b/t/lib/Cname.pm
@@ -2,6 +2,9 @@ package Cname;
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.
@@ -24,6 +27,7 @@ sub translator {
if ( $str eq 'TOO-LONG-STR') {
return 'A' x 256;
}
+
return $str;
}