[Openautomation-svn] SF.net SVN: openautomation:[552] tools/ets4tools/ets4parser.pl

[<ma...@us...>]

Revision: 552
          http://openautomation.svn.sourceforge.net/openautomation/?rev=552&view=rev
Author:   makki1
Date:     2011-12-05 18:53:03 +0000 (Mon, 05 Dec 2011)
Log Message:
-----------
Fix encoding for current (v4.0.7) .knxproj

Modified Paths:
--------------
    tools/ets4tools/ets4parser.pl

Modified: tools/ets4tools/ets4parser.pl
===================================================================
--- tools/ets4tools/ets4parser.pl	2011-11-30 21:53:11 UTC (rev 551)
+++ tools/ets4tools/ets4parser.pl	2011-12-05 18:53:03 UTC (rev 552)
@@ -21,6 +21,7 @@
 use XML::Simple;
 use Data::Dumper;
 use POSIX;
+binmode(STDOUT, ":utf8");
 
 no warnings qw(uninitialized);
 
@@ -31,8 +32,8 @@
 }
 
 my $file0 = glob("P-*/0.xml");
-open(my $fh, "<:encoding(ISO-8859-1)", $file0) || die "can't open file: $!";
-open(my $knxmfh, "<:encoding(ISO-8859-1)", 'knx_master.xml') || die "can't open file: $!";
+open(my $fh, $file0) || die "can't open file: $!";
+open(my $knxmfh, 'knx_master.xml') || die "can't open file: $!";
 
 #special case: only one MG/GA etc. fixed with forcearray
 my $proj = XMLin($fh, ForceArray => ['GroupRange','GroupAddress','Area','Line','DeviceInstance','ComObjectInstanceRef','Send','Receive']);
@@ -150,3 +151,4 @@
     	return;
     }
 }
+

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.