Fix build with Perl < 5.6.

Reported by:	krion

1 files changed, 11 insertions, 0 deletions

diff --git a/textproc/scrollkeeper/files/patch-intltool-merge.in b/textproc/scrollkeeper/files/patch-intltool-merge.in
new file mode 100644
index 000000000000..54c8a233119d
--- /dev/null
+++ b/textproc/scrollkeeper/files/patch-intltool-merge.in
@@ -0,0 +1,11 @@
+--- intltool-merge.in.orig	Wed Nov 12 15:29:28 2003
++++ intltool-merge.in	Wed Nov 12 15:31:54 2003
+@@ -858,7 +858,7 @@
+     if ($MULTIPLE_OUTPUT) {
+         for my $lang (sort keys %po_files_by_lang) {
+ 	    if ( ! -e $lang ) {
+-	        mkdir $lang or die "Cannot create subdirectory $lang: $!\n";
++	        mkdir $lang, 0777 or die "Cannot create subdirectory $lang: $!\n";
+             }
+             open OUTPUT, ">$lang/$OUTFILE" or die "Cannot open $lang/$OUTFILE: $!\n";
+             my $tree = readXml($FILE);