Merge pull request #14 from jkeenan/avert-escape-whitespace-warnings-20250912

Work around new warning in perl-5.43.2

Author: barefootcoder

lib/Data/Random.pm

@@ -139,7 +139,8 @@ sub rand_chars {
         if ( $options{'set'} eq 'all' ) {
             @charset =
               ( 0 .. 9, 'a' .. 'z', 'A' .. 'Z', '#', ',',
-                qw(~ ! @ $ % ^ & * ( ) _ + = - { } | : " < > ? / . ' ; ] [ \ `)
+                qw(~ ! @ $ % ^ & * ( ) _ + = - { } | : " < > ? / . ' ; ] [ `),
+                "\\",
             );
         }
         elsif ( $options{'set'} eq 'alpha' ) {

t/rand_chars.t

@@ -13,7 +13,8 @@ use vars qw( %charsets );
         'A' .. 'Z',
         '#',
         ',',
-        qw( ~ ! @ $ % ^ & * ( ) _ + = - { } | : " < > ? / . ' ; [ ] \ ` )
+        qw( ~ ! @ $ % ^ & * ( ) _ + = - { } | : " < > ? / . ' ; [ ] ` ),
+        "\\",
     ],
     alpha      => [ 'a' .. 'z',  'A' .. 'Z' ],
     upperalpha => [ 'A' .. 'Z' ],
@@ -23,7 +24,8 @@ use vars qw( %charsets );
     misc         => [
         '#',
         ',',
-        qw( ~ ! @ $ % ^ & * ( ) _ + = - { } | : " < > ? / . ' ; [ ] \ ` )
+        qw( ~ ! @ $ % ^ & * ( ) _ + = - { } | : " < > ? / . ' ; [ ] ` ),
+        "\\",
     ],
 );