Refactor File::DosGlob to avoid an unescaped { in a regex.

This avoids generating deprecation warnings.

diff --git a/lib/File/DosGlob.pm b/lib/File/DosGlob.pm
index e6d548e..111ec20 100644 (file)
--- a/lib/File/DosGlob.pm
+++ b/lib/File/DosGlob.pm
@@ -6,7 +6,7 @@
 
 package File::DosGlob;
 
-our $VERSION = '1.07';
+our $VERSION = '1.08';
 use strict;
 use warnings;
 
@@ -166,9 +166,7 @@ sub glob {
        }
       }
       for ( @pat ) {
-       s/\\{/{/g;
-       s/\\}/}/g;
-       s/\\,/,/g;
+       s/\\([{},])/$1/g;
       }
       #print join ("\n", @pat). "\n";
  

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 946f3f7..4f3483e 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -103,6 +103,12 @@ XXX
 
 =item *
 
+L<File::DosGlob> has been upgraded from version 1.07 to 1.08.
+
+There are no visible changes, only minor internal refactorings.
+
+=item *
+
 L<IO> has been upgraded from version 1.25_06 to version 1.25_07.
 
 C<sync()> can now be called on read only file handles [perl #64772].