rev 10900 - in people/modax/copyright-helper/trunk: . parsers
Modestas Vainius
modax-guest at alioth.debian.org
Mon Jun 9 10:46:15 UTC 2008
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 );
More information about the pkg-kde-commits
mailing list