revert 13221 (feature/"big change" freeze)

[vlc] / vlc-api.pl

diff --git a/vlc-api.pl b/vlc-api.pl
index 2aa3ca880242789f211f46275fcfd3e907c5ee9a..1c963a6ad2147a91d6b141c2d725d90cbee8b20d 100755 (executable)
--- 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".
@@ -56,7 +58,7 @@ print { $new_sym }
        "/*\n".
        " * In an ideal world, plugins would include all the headers they need.\n".
        " * But of course, many, if not all, of them don't, so we have to make sure\n".
-       " * the while libvlc API is defined here in any case when included from a\n".
+       " * the whole libvlc API is defined here in any case when included from a\n".
        " * plugin.\n".
        " */\n".
        "#  ifdef __PLUGIN__\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>)
 {