From fcd25e07f985788c9e307b7c332fd0d89763f4d5 Mon Sep 17 00:00:00 2001
From: bland <bland@df743ca5-7f9a-e211-a948-0013205c9059>
Date: Thu, 12 Feb 2004 08:06:06 +0000
Subject: Fix perl syntax so old perl won't fail.

git-svn-id: svn://creme-brulee.marcuscom.com/ports/trunk@1821 df743ca5-7f9a-e211-a948-0013205c9059
---
 .../files/patch-docs::reference::beautify_docs.pl    | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 devel/glibmm/files/patch-docs::reference::beautify_docs.pl

diff --git a/devel/glibmm/files/patch-docs::reference::beautify_docs.pl b/devel/glibmm/files/patch-docs::reference::beautify_docs.pl
new file mode 100644
index 000000000..bbb320452
--- /dev/null
+++ b/devel/glibmm/files/patch-docs::reference::beautify_docs.pl
@@ -0,0 +1,20 @@
+--- docs/reference/beautify_docs.pl.in.orig	Thu Feb 12 02:52:02 2004
++++ docs/reference/beautify_docs.pl.in	Thu Feb 12 03:00:08 2004
+@@ -25,7 +25,7 @@
+   my ($file) = @_;
+   my @outbuf;
+ 
+-  open(FILE, '<', $file);
++  open(FILE, "<$file");
+ 
+   while(<FILE>)
+   {
+@@ -71,7 +71,7 @@
+     push(@outbuf, $_);
+   }
+ 
+-  open(FILE, '>', $file);
++  open(FILE, ">$file");
+ 
+   # write the whole buffer back
+   print FILE "$_" foreach(@outbuf);
-- 
cgit v1.2.3