rev 10900 - in people/modax/copyright-helper/trunk: . parsers

[Modestas Vainius]

Author: modax-guest
Date: 2008-06-09 10:46:14 +0000 (Mon, 09 Jun 2008)
New Revision: 10900

Modified:
   people/modax/copyright-helper/trunk/CHCopyright.pm
   people/modax/copyright-helper/trunk/CHCore.pm
   people/modax/copyright-helper/trunk/CHLicenses.pm
   people/modax/copyright-helper/trunk/CHParsers.pm
   people/modax/copyright-helper/trunk/copyright-helper.pl
   people/modax/copyright-helper/trunk/parsers/c_cpp.pm
   people/modax/copyright-helper/trunk/parsers/po.pm
Log:
Proper UTF8 support (hopefully)

Modified: people/modax/copyright-helper/trunk/CHCopyright.pm
===================================================================
--- people/modax/copyright-helper/trunk/CHCopyright.pm	2008-06-09 10:44:38 UTC (rev 10899)
+++ people/modax/copyright-helper/trunk/CHCopyright.pm	2008-06-09 10:46:14 UTC (rev 10900)
@@ -15,11 +15,9 @@
 
 package CHCopyright;
 use strict;
-use utf8;
 
 # Perl does not seem to match (regex) © without this trick in utf8 mode
 our $__copyright_symbol = '©';
-utf8::encode($__copyright_symbol);
 
 our $__copyright_separator = qr/copyright\W|(?:^|[^@])authors?:|(?:\(C\)|$__copyright_symbol)\s+(?!\d)/io;
 our $__copyright_match = qr/\(C\)|$__copyright_symbol/io;

Modified: people/modax/copyright-helper/trunk/CHCore.pm
===================================================================
--- people/modax/copyright-helper/trunk/CHCore.pm	2008-06-09 10:44:38 UTC (rev 10899)
+++ people/modax/copyright-helper/trunk/CHCore.pm	2008-06-09 10:46:14 UTC (rev 10900)
@@ -15,7 +15,6 @@
 
 package CHCore;
 use strict;
-use utf8;
 
 @CHCore::Directory::ISA = qw( CHCore::File );
 

Modified: people/modax/copyright-helper/trunk/CHLicenses.pm
===================================================================
--- people/modax/copyright-helper/trunk/CHLicenses.pm	2008-06-09 10:44:38 UTC (rev 10899)
+++ people/modax/copyright-helper/trunk/CHLicenses.pm	2008-06-09 10:46:14 UTC (rev 10900)
@@ -16,7 +16,6 @@
 package CHLicenses;
 use strict;
 use File::Basename qw( basename fileparse );
-use utf8;
 
 require Exporter;
 our @ISA = qw( Exporter );

Modified: people/modax/copyright-helper/trunk/CHParsers.pm
===================================================================
--- people/modax/copyright-helper/trunk/CHParsers.pm	2008-06-09 10:44:38 UTC (rev 10899)
+++ people/modax/copyright-helper/trunk/CHParsers.pm	2008-06-09 10:46:14 UTC (rev 10900)
@@ -15,7 +15,6 @@
 
 package CHParsers;
 use strict;
-use utf8;
 
 require Exporter;
 our @ISA = qw( Exporter );

Modified: people/modax/copyright-helper/trunk/copyright-helper.pl
===================================================================
--- people/modax/copyright-helper/trunk/copyright-helper.pl	2008-06-09 10:44:38 UTC (rev 10899)
+++ people/modax/copyright-helper/trunk/copyright-helper.pl	2008-06-09 10:46:14 UTC (rev 10900)
@@ -16,7 +16,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>
 
 use strict;
-use utf8;
 
 use CHParsers("parsers/*");
 use CHLicenses("licenses/*");
@@ -26,6 +25,11 @@
 
 use Getopt::Long;
 
+# Proper utf8 support
+use open ":encoding(utf8)";
+binmode STDOUT, ":utf8"
+use utf8;
+
 my $max_header = 70;
 my $opt_show_headers = 1;
 

Modified: people/modax/copyright-helper/trunk/parsers/c_cpp.pm
===================================================================
--- people/modax/copyright-helper/trunk/parsers/c_cpp.pm	2008-06-09 10:44:38 UTC (rev 10899)
+++ people/modax/copyright-helper/trunk/parsers/c_cpp.pm	2008-06-09 10:46:14 UTC (rev 10900)
@@ -15,7 +15,6 @@
 
 package CHParsers::c_cpp;
 use strict;
-use utf8;
 our @ISA = qw( CHParsers::ParserBase );
 
 sub __push_comment(\@$) {

Modified: people/modax/copyright-helper/trunk/parsers/po.pm
===================================================================
--- people/modax/copyright-helper/trunk/parsers/po.pm	2008-06-09 10:44:38 UTC (rev 10899)
+++ people/modax/copyright-helper/trunk/parsers/po.pm	2008-06-09 10:46:14 UTC (rev 10900)
@@ -15,7 +15,6 @@
 
 package CHParsers::po;
 use strict;
-use utf8;
 
 our @ISA = qw( CHParsers::ParserBase );