Merge branch 'sync-with-cpan-weird-distnames' of https://github.com/a…

…p-contrib/perl5 into ap-contrib-sync-with-cpan-weird-distnames
Perl · Aug 5, 2021 · 5b74f9e · 5b74f9e
2 parents ba6958b + ddda34b
commit 5b74f9e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Porting/sync-with-cpan b/Porting/sync-with-cpan
@@ -404,7 +404,7 @@ if ($$info {EXCLUDED}) {
 
 FILE: for my $file ( find_type_f( $new_dir )) {
     my $old_file = $file;
-    $file =~ s{^$new_dir/}{};
+    $file =~ s{^\Q$new_dir\E/}{};
 
     next if $EXCLUDED_QQ{$file};
     for my $qr (@EXCLUDED_QR) {