fix spelling

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 2c474ab7ab6b9990bc0602ba5cf32d9d70c0fc39..92c9e737e45efa624b7123bc1d6b1be94de8ef3d 100644 (file)
--- 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 53a1f21871d7e35f3705dbcd6cdce5d5b2ba1aa6..3708b3b7281d54639cc9d932fecf61cb0cdebde1 100644 (file)
--- 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" );