diff options
| author | Karl Williamson <khw@cpan.org> | 2021-01-09 20:41:12 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-01-16 17:01:41 -0700 |
| commit | c5f9609a1a8a7a902c023d06c8b2a4c42afce078 (patch) | |
| tree | 909481349ff0412a1e878142f4c280e4d8a0fd1e /t/lib | |
| parent | 3cf084545922950b28fae154dc96f9d4e3e5fc60 (diff) | |
| download | perl-c5f9609a1a8a7a902c023d06c8b2a4c42afce078.tar.gz | |
t/lib/Cname.pm: Comment, white-space only
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/Cname.pm | 4 |
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; } |