quote the pod filename used in the regexp to avoid \ issues on Win32

diff --git a/pod/buildtoc b/pod/buildtoc
index c85db57..cc105a0 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -434,7 +434,7 @@ sub podset {
            $_ = <$fh>;
            # Remove svn keyword expansions from the Perl FAQ
            s/ \(\$Revision: \d+ \$\)//g;
-           if ( /^\s*$pod\b/ ) {
+           if ( /^\s*\Q$pod\E\b/ ) {
                s/$pod\.pm/$pod/;       # '.pm' in NAME !?
                output $_;
            } else {