Fix handling of author's names that had apostrophes. Based on a patch

by Sean O'Rourke <sorourke@cs.ucsd.edu> in RT bug #22950.

p4raw-id: //depot/perl@26252

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index ec9dfd2..7a21752 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -1239,6 +1239,7 @@ eval {
        }
      };
 
+$author =~ s/'/\\'/g if defined $author;
 $author ||= "A. U. Thor";
 $email  ||= 'a.u.thor@a.galaxy.far.far.away';