diff options
author | Kent Fredric <kentfredric@gmail.com> | 2012-02-24 09:07:50 +1300 |
---|---|---|
committer | Kent Fredric <kentfredric@gmail.com> | 2012-02-24 09:07:50 +1300 |
commit | 11f68780d3ccfb50396a4f9736957288d466cd04 (patch) | |
tree | 5d128af2889f8f652bcca58f9b33682d32adf173 /scripts/gen_ebuild.pl | |
parent | [newversion] Dist-Zilla-Util-Test-KENTNL-0.10.158.220 (diff) | |
download | perl-overlay-11f68780d3ccfb50396a4f9736957288d466cd04.tar.gz perl-overlay-11f68780d3ccfb50396a4f9736957288d466cd04.tar.bz2 perl-overlay-11f68780d3ccfb50396a4f9736957288d466cd04.zip |
[scripts] Be less vulnerable to weird quotes in abstract
Diffstat (limited to 'scripts/gen_ebuild.pl')
-rwxr-xr-x | 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 46ea8f1b5..8d83bc50d 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 = []; |