| Subject: | [PATCH] Don't create a broken build file if author's name has an apostrophe |
| Date: | Fri, 8 Feb 2008 14:21:18 -0500 |
| To: | bug-module-starter [...] rt.cpan.org |
| From: | "Dave O'Neill" <dmo [...] dmo.ca> |
The default templates wrap $author with 'single quotes'. This makes
things break if your name is O'Neill. Instead, use q{$author}.
Patch is against v1.470 of Module::Starter.
---
lib/Module/Starter/Simple.pm | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/Module/Starter/Simple.pm b/lib/Module/Starter/Simple.pm
index 60f70a1..02e78dc 100644
--- a/lib/Module/Starter/Simple.pm
+++ b/lib/Module/Starter/Simple.pm
@@ -336,7 +336,7 @@ use ExtUtils::MakeMaker;
WriteMakefile(
NAME => '$main_module',
- AUTHOR => '$author',
+ AUTHOR => q{$author},
VERSION_FROM => '$main_pm_file',
ABSTRACT_FROM => '$main_pm_file',
PL_FILES => {},
@@ -370,7 +370,7 @@ use inc::Module::Install;
name '$self->{distro}';
all_from '$main_pm_file';
-author '$author';
+author q{$author};
build_requires 'Test::More';
@@ -433,7 +433,7 @@ use Module::Build;
my \$builder = Module::Build->new(
module_name => '$main_module',
license => '$self->{license}',
- dist_author => '$author',
+ dist_author => q{$author},
dist_version_from => '$main_pm_file',
build_requires => {
'Test::More' => 0,
--
1.5.3.4.396.g86a6a