update docs & comments

diff --git a/bin/perltidy b/bin/perltidy
index fa0530fee644871f964573aacf89fd95c0a907c3..a08c51ff2c93ec0b5a8cb1fc4548a290910065a9 100755 (executable)
--- a/bin/perltidy
+++ b/bin/perltidy
@@ -6102,7 +6102,7 @@ B<Some Limitations:>
 =over 4
 
 =item *
-Only subs for which the call args are unpacked in an orderly manner at the beginning of the sub from C<@_>, directly and/or with C<shift> operations, are checked.  Subs for which this does not appear to be the case are skipped.
+The only subs which these checks are made are those for which the call args are unpacked in an orderly manner at the beginning of the sub from C<@_>, directly and/or with C<shift> operations.
 
 =item *
 Subs which appear to have no args are not checked. This is necessary to avoid false warnings when a sub actually uses args in a complex way.

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 1d710ea0ec1bba5f6df200318e85244491c654b2..7316285751f61939597f3ec454f7963c6e9e28ab 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -5516,7 +5516,7 @@ sub Win_Config_Locs {
     # 9x/Me box.  Contributed by: Yves Orton.
 
     my ( $rpending_complaint, $os ) = @_;
-    if ( !$os ) { $os = Win_OS_Type(); }
+    if ( !$os ) { $os = Win_OS_Type($rpending_complaint) }
 
     return unless $os;
 

diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm
index 8493f09a678576dad1ed7a3ab72f5dd150121251..1bd2b291ef06dd0b70a3a6578deda976e0d81d32 100644 (file)
--- a/lib/Perl/Tidy/Logger.pm
+++ b/lib/Perl/Tidy/Logger.pm
@@ -372,9 +372,13 @@ sub complain {
 
 sub warning {
 
-    # report errors to .ERR file (or stdout)
     my ( $self, $msg, $msg_line_number ) = @_;
 
+    # Report errors to .ERR file (or stdout)
+    # Given:
+    #    $msg             = a string with the warning message
+    #    $msg_line_number = optional line number to display
+
     use constant WARNING_LIMIT => 50;
 
     # Always bump the warn count, even if no message goes out

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 12295be5ef84b7e4c610465ee9925986049171e3..effdcfd35ea84dadb529099900ac72abb5ad72c8 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -9115,7 +9115,7 @@ EOM
       RETURN:
 
         DEBUG_SCAN_ID && do {
-            my ( $a, $b, $c ) = caller;
+            my ( $a, $b, $c ) = caller();
             print {*STDOUT}
 "SCANID: called from $a $b $c with tok, i, state, identifier =$tok_begin, $i_begin, $id_scan_state_begin, $identifier_begin\n";
             print {*STDOUT}