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

This avoids generating deprecation warnings.

2 files changed, 8 insertions, 4 deletions

diff --git a/lib/File/DosGlob.pm b/lib/File/DosGlob.pm
index e6d548ee25..111ec20dbe 100644
--- 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 946f3f77dc..4f3483e620 100644
--- 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].