[perl-Glib/stable-1-22] Glib::MakeHelper: Properly escape slashes in copyright footers



commit 8908f574cedf2254dbcb240574a6bf2fd046704a
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sat Jul 4 19:16:31 2009 +0200

    Glib::MakeHelper: Properly escape slashes in copyright footers
    
    Since we use qq// to quote the copyright fragment in the generated
    Makefile, we need to escape any slashes.  Fixes RT #45685.

 MakeHelper.pm |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)
---
diff --git a/MakeHelper.pm b/MakeHelper.pm
index 015fcb2..568ef93 100644
--- a/MakeHelper.pm
+++ b/MakeHelper.pm
@@ -362,6 +362,7 @@ sub postamble_docs_full {
 	if ($copyright) {
 		# this text has to be escaped for both make and the shell.
 		$copyright =~ s/\n/\\n/gm; # collapse to one line.
+		$copyright =~ s|/|\\/|g;   # escape slashes for qq//
 		$copyright = "Glib::GenPod::set_copyright(qq/$copyright/);";
 	}
 



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]