s/Nick Clark/Nicholas Clark/

p4raw-id: //depot/perl@26037

1 files changed, 1 insertions, 1 deletions

diff --git a/t/op/lc.t b/t/op/lc.t
index d75b64e6dc..460fed2619 100644
--- a/t/op/lc.t
+++ b/t/op/lc.t
@@ -146,7 +146,7 @@ is($c , "\x{3c3}FOO.bAR", "Using s///e to change case.");
 is($c , "\x{3a3}foo.Bar", "Using s///e to change case.");
 
 # #18931: perl5.8.0 bug in \U..\E processing
-# Test case from Nick Clark.
+# Test case from Nicholas Clark.
 for my $a (0,1) {
     $_ = 'abcdefgh';
     $_ .= chr 256;