This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3cf0845
)
t/lib/Cname.pm: Comment, white-space only
blead
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
index
dad356a
..
1c6eca4
100644
(file)
--- 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;
}