From 8d65083c187c5066a60de73d32695cfce6ddaef8 Mon Sep 17 00:00:00 2001
From: =?utf8?q?R=C3=A9mi=20Denis-Courmont?= <rem@videolan.org>
Date: Wed, 9 Nov 2005 12:03:40 +0000
Subject: [PATCH] =?utf8?q?Support=20for=20Perl=205.005=20-=20patch=20from?=
 =?utf8?q?=20Daniel=20Str=C3=A4nger?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 HACKING    | 2 ++
 vlc-api.pl | 7 +++++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/HACKING b/HACKING
index 53dfc7b6e7..6d102918e5 100644
--- a/HACKING
+++ b/HACKING
@@ -22,6 +22,8 @@ You will need the following tools if you plan to use the SVN version of vlc:
 
  - gettext version 0.10.40 (but 0.11.3 or later is recommended)
 
+ - perl version 5.005 or later
+
 After retrieving the SVN tree, you need to run the bootstrap script to
 generate all the files needed to build vlc. You can then run configure.
 Run ./configure --help for a description of the available options.
diff --git a/vlc-api.pl b/vlc-api.pl
index 8b22ff4376..1c963a6ad2 100755
--- a/vlc-api.pl
+++ b/vlc-api.pl
@@ -22,6 +22,7 @@
 #* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
 #*****************************************************************************/
 
+use IO::Handle;
 use strict;
 
 my $srcdir = $ENV{'top_srcdir'};
@@ -42,7 +43,8 @@ while (<STDIN>)
 #
 # Write header's header
 #
-open my $new_sym, '> vlc_symbols.h.new' or die "$!";
+my $new_sym=IO::Handle->new();
+open $new_sym, '> vlc_symbols.h.new' or die "$!";
 print { $new_sym }
 	"/*\n".
 	" * This file is automatically generated. DO NOT EDIT!\n".
@@ -96,7 +98,8 @@ my @API;
 my @deprecated_API;
 my $parse = 0;
 
-open my $oldfd, "< $srcdir/include/vlc_symbols.h";
+my $oldfd = IO::Handle->new();
+open $oldfd, "< $srcdir/include/vlc_symbols.h";
 
 while (<$oldfd>)
 {
-- 
2.39.2