[gentoo-commits] proj/perl-overlay:master commit in: scripts/

["Kent Fredric" <kentfredric@gmail.com>]

commit:     11f68780d3ccfb50396a4f9736957288d466cd04
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Thu Feb 23 20:07:50 2012 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Thu Feb 23 20:07:50 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=11f68780

[scripts] Be less vulnerable to weird quotes in abstract

---
 scripts/gen_ebuild.pl |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/scripts/gen_ebuild.pl b/scripts/gen_ebuild.pl
index 46ea8f1..8d83bc5 100755
--- a/scripts/gen_ebuild.pl
+++ b/scripts/gen_ebuild.pl
@@ -135,7 +135,9 @@ if ( not defined $release_info->{abstract} ) {
   warn "Missing an ABSTRACT";
 }
 else {
-  $fh->say( 'DESCRIPTION=\'' . $release_info->{abstract} . '\'' );
+  my $abstract = $release_info->{abstract};
+  $abstract =~ s/'/'\\''/g;  #  ' => '\'' 
+  $fh->say( 'DESCRIPTION=\'' . $abstract . '\'' );
 }
 
 my $lics   = [];