[perl-Glib] Glib::MakeHelper: Properly escape slashes in copyright footers

[Torsten Schönfeld <tsch src gnome org>]

commit 7741465eb4b531a0620fe7e367c1b34236b40a44
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/);";
 	}