From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 31 Jul 2024 14:29:03 +0000 (-0700)
Subject: fix spelling
X-Git-Tag: 20240511.08~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1873331ddcf1f389c762cdae0cd88e367f45654b;p=perltidy.git

fix spelling
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 2c474ab7..92c9e737 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -3134,7 +3134,7 @@ sub line_diff {
     my ( $s1, $s2 ) = @_;
 
     # Given two strings, Return
-    #  $diff_marker = a string with carat (^) symbols indicating differences
+    #  $diff_marker = a string with caret (^) symbols indicating differences
     #  $pos1 = character position of first difference; pos1=-1 if no difference
 
     # Form exclusive or of the strings, which has null characters where strings
diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 53a1f218..3708b3b7 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -10527,20 +10527,20 @@ sub follow_quoted_string {
 } ## end sub follow_quoted_string
 
 sub indicate_error {
-    my ( $self, $msg, $line_number, $input_line, $pos, $carrat ) = @_;
+    my ( $self, $msg, $line_number, $input_line, $pos, $caret ) = @_;
     $self->interrupt_logfile();
     $self->warning($msg);
     $self->write_error_indicator_pair( $line_number, $input_line, $pos,
-        $carrat );
+        $caret );
     $self->resume_logfile();
     return;
 } ## end sub indicate_error
 
 sub write_error_indicator_pair {
-    my ( $self, $line_number, $input_line, $pos, $carrat ) = @_;
+    my ( $self, $line_number, $input_line, $pos, $caret ) = @_;
     my ( $offset, $numbered_line, $underline ) =
       make_numbered_line( $line_number, $input_line, $pos );
-    $underline = write_on_underline( $underline, $pos - $offset, $carrat );
+    $underline = write_on_underline( $underline, $pos - $offset, $caret );
     $self->warning( $numbered_line . "\n" );
     $underline =~ s/\s+$//;
     $self->warning( $underline . "\n" );