[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.528,1.529

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16078/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Handle some YAML escaping better

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.528
retrieving revision 1.529
diff -u -d -r1.528 -r1.529
--- Base.pm	27 Nov 2005 09:30:32 -0000	1.528
+++ Base.pm	29 Nov 2005 05:03:09 -0000	1.529
@@ -2847,6 +2847,19 @@
   }
 }
 
+sub _yaml_quote_string {
+  # XXX doesn't handle embedded newlines
+
+  my ($self, $string) = @_;
+  if ($string !~ /\"/) {
+    $string =~ s{\\}{\\\\}g;
+    return qq{"$string"};
+  } else {
+    $string =~ s{([\\'])}{\\$1}g;
+    return qq{'$string'};
+  }
+}
+
 sub _write_minimal_metadata {
   my $self = shift;
   my $p = $self->{properties};
@@ -2855,6 +2868,9 @@
   my $fh = IO::File->new("> $file")
     or die "Can't open $file: $!";
 
+  my @author = map $self->_yaml_quote_string($_), @{$self->dist_author};
+  my $abstract = $self->_yaml_quote_string($self->dist_abstract);
+
   # XXX Add the meta_add & meta_merge stuff
 
   print $fh <<"EOF";
@@ -2862,8 +2878,8 @@
 name: $p->{dist_name}
 version: $p->{dist_version}
 author:
-@{[ join "\n", map "  - $_", @{$self->dist_author} ]}
-abstract: @{[ $self->dist_abstract ]}
+@{[ join "\n", map "  - $_", @author ]}
+abstract: $abstract
 license: $p->{license}
 generated_by: Module::Build version $Module::Build::VERSION, without YAML.pm
 EOF