diff options
| author | bland <bland@df743ca5-7f9a-e211-a948-0013205c9059> | 2004-02-12 16:06:06 +0800 |
|---|---|---|
| committer | bland <bland@df743ca5-7f9a-e211-a948-0013205c9059> | 2004-02-12 16:06:06 +0800 |
| commit | fcd25e07f985788c9e307b7c332fd0d89763f4d5 (patch) | |
| tree | 163588d303a0e6cdb42f65ccf0bf237eb918f8db | |
| parent | 73d70cc2e1d4beb2a87f46c81e5dd54f0a769aed (diff) | |
| download | marcuscom-ports-fcd25e07f985788c9e307b7c332fd0d89763f4d5.tar marcuscom-ports-fcd25e07f985788c9e307b7c332fd0d89763f4d5.tar.gz marcuscom-ports-fcd25e07f985788c9e307b7c332fd0d89763f4d5.tar.bz2 marcuscom-ports-fcd25e07f985788c9e307b7c332fd0d89763f4d5.tar.lz marcuscom-ports-fcd25e07f985788c9e307b7c332fd0d89763f4d5.tar.xz marcuscom-ports-fcd25e07f985788c9e307b7c332fd0d89763f4d5.tar.zst marcuscom-ports-fcd25e07f985788c9e307b7c332fd0d89763f4d5.zip | |
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
| -rw-r--r-- | devel/glibmm/files/patch-docs::reference::beautify_docs.pl | 20 |
1 files changed, 20 insertions, 0 deletions
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); |