Added optional o in octal number definitions

diff --git a/dev-bin/perltidy_random_run.pl b/dev-bin/perltidy_random_run.pl
index 9a1b00cf9b1ea8af7525dc11e3d8fd08146f9d8d..b31c86424ac6511183a3d74d37314ebb5a3445e6 100755 (executable)
--- a/dev-bin/perltidy_random_run.pl
+++ b/dev-bin/perltidy_random_run.pl
@@ -745,7 +745,7 @@ foreach my $line (@lines) {
         || $line =~ /undefined/
         || $line =~ /A fault was/
         || $line =~ /STRANGE/
-        || length($line) > 80 )
+        || length($line) > 90 )
     {
 
         # ignore last few lines

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index e04e363fd328c02bd97df7c7cdac3d46f9631117..a9fea6e9a6bcf1d3e869f9e3722a80d606ff71c3 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -7755,13 +7755,13 @@ sub scan_number_do {
            |([xX][0-9a-fA-F_]+)        
 
           # or octal fraction
-           |([0-7_]+               # string of octal digits 
+           |([oO]?[0-7_]+          # string of octal digits
            (\.([0-7][0-7_]*)?)?    # optional decimal and fraction
            [Pp][+-]?[0-7]          # REQUIRED exponent, no underscore
            [0-7_]*)                # Additional exponent digits with underscores
 
            # or octal integer
-           |([0-7_]+)               # string of octal digits 
+           |([oO]?[0-7_]+)         # string of octal digits
 
            # or a binary float
            |([bB][01_]*            # 'b' with string of binary digits 

diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod
index 5ca2f9f7fe55258959245c11a8c7224540d68e48..07f34efe40effddd3b80a198915de8215277ae4c 100644 (file)
--- a/local-docs/BugLog.pod
+++ b/local-docs/BugLog.pod
@@ -2,12 +2,25 @@
 
 =over 4
 
+=item B<Added optional o in octal number definitions>
+
+An optional letter 'o' or 'O' in the octal representation of numbers, which was
+added in perl version 5.33.5, is now recogized.  The leading zero is still
+required.
+
+For example:
+
+    $a = 0o100;
+    $a = 0O100;
+
+26 May 2021.
+
 =item B<Fix several problems with -lp formatting>
 
 This update fixes several problems with -lp formatting which are all somewhat
 related.
 
-ISSUE #1 (case c002): A problem involving -lp -wn and certain qw lists
+ISSUE #1 (cases c002 and c004): A problem involving -lp -wn and certain qw lists
 
 The last line of a welded qw list was being outdented even if it contained text
 as well as the closing container token.  This update fixes the problem and
@@ -93,7 +106,7 @@ being applied when it should have been.  For example (text is shifted right):
     PROG
 
 
-25 May 2021.
+25 May 2021, 6947fe9.
 
 =item B<Modify welding rules>