r48775 - in /trunk/libcommon-sense-perl: Changes META.json META.yml README debian/changelog debian/copyright sense.pm
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Tue Dec 15 10:58:58 UTC 2009
Author: angelabad-guest
Date: Tue Dec 15 10:58:53 2009
New Revision: 48775
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48775
Log:
New upstream release 3.0
Modified:
trunk/libcommon-sense-perl/Changes
trunk/libcommon-sense-perl/META.json
trunk/libcommon-sense-perl/META.yml
trunk/libcommon-sense-perl/README
trunk/libcommon-sense-perl/debian/changelog
trunk/libcommon-sense-perl/debian/copyright
trunk/libcommon-sense-perl/sense.pm
Modified: trunk/libcommon-sense-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcommon-sense-perl/Changes?rev=48775&op=diff
==============================================================================
--- trunk/libcommon-sense-perl/Changes (original)
+++ trunk/libcommon-sense-perl/Changes Tue Dec 15 10:58:53 2009
@@ -1,4 +1,12 @@
Revision history for perl pragma common::sense.
+
+3.0 Tue Dec 15 03:24:28 CET 2009
+ - enable "use utf8" effect by default.
+ - removed "utf8" warning category. while this contains useful security
+ stuff, it also makes implementing security stuff almost impossible,
+ as it completely mangles perls internal utf8 encoding with actual
+ utf-8 encoding, and confuses "unicode", "string codepoints" and
+ "utf-8" so much that it becoems practically unusable.
2.03 Wed Dec 2 18:38:53 CET 2009
- removed "unopened" warning category, as this breaks "stat _", which
Modified: trunk/libcommon-sense-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcommon-sense-perl/META.json?rev=48775&op=diff
==============================================================================
--- trunk/libcommon-sense-perl/META.json (original)
+++ trunk/libcommon-sense-perl/META.json Tue Dec 15 10:58:53 2009
@@ -1,1 +1,1 @@
-{"no_index":{"directory":["t","inc"]},"meta-spec":{"version":1.4,"url":"http://module-build.sourceforge.net/META-spec-v1.4.html"},"generated_by":"ExtUtils::MakeMaker version 6.54","distribution_type":"module","version":"2.03","name":"common-sense","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{},"abstract":null,"configure_requires":{"ExtUtils::MakeMaker":0}}
+{"no_index":{"directory":["t","inc"]},"meta-spec":{"version":1.4,"url":"http://module-build.sourceforge.net/META-spec-v1.4.html"},"generated_by":"ExtUtils::MakeMaker version 6.54","distribution_type":"module","version":"3.0","name":"common-sense","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{},"abstract":null,"configure_requires":{"ExtUtils::MakeMaker":0}}
Modified: trunk/libcommon-sense-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcommon-sense-perl/META.yml?rev=48775&op=diff
==============================================================================
--- trunk/libcommon-sense-perl/META.yml (original)
+++ trunk/libcommon-sense-perl/META.yml Tue Dec 15 10:58:53 2009
@@ -11,7 +11,7 @@
},
"generated_by" : "ExtUtils::MakeMaker version 6.54",
"distribution_type" : "module",
- "version" : "2.03",
+ "version" : "3.0",
"name" : "common-sense",
"author" : [],
"license" : "unknown",
Modified: trunk/libcommon-sense-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcommon-sense-perl/README?rev=48775&op=diff
==============================================================================
--- trunk/libcommon-sense-perl/README (original)
+++ trunk/libcommon-sense-perl/README Tue Dec 15 10:58:53 2009
@@ -6,12 +6,13 @@
# supposed to be the same, with much lower memory usage, as:
#
+ # use utf8;
# use strict qw(vars subs);
# use feature qw(say state switch);
# no warnings;
# use warnings qw(FATAL closed threads internal debugging pack substr malloc
# portable prototype inplace io pipe unpack regexp
- # deprecated exiting glob digit printf utf8 layer
+ # deprecated exiting glob digit printf layer
# reserved parenthesis taint closure semicolon);
# no warnings qw(exec newline unopened);
@@ -44,6 +45,17 @@
What follows is a more thorough discussion of what this module does, and
why it does it, and what the advantages (and disadvantages) of this
approach are.
+
+ use utf8
+ While it's not common sense to write your programs in UTF-8, it's
+ quickly becoming the most common encoding, and the most convenient
+ encoding available (you can do really nice quoting tricks...).
+ Experience has shown that our programs were either all pure ascii or
+ utf-8, both of which will stay the same.
+
+ There are few drawbacks to enabling UTF-8 source code by default
+ (mainly some speed hits due to bugs in older versions of perl), so
+ this module enables UTF-8 source code encoding by default.
use strict qw(subs vars)
Using "use strict" is definitely common sense, but "use strict
Modified: trunk/libcommon-sense-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcommon-sense-perl/debian/changelog?rev=48775&op=diff
==============================================================================
--- trunk/libcommon-sense-perl/debian/changelog (original)
+++ trunk/libcommon-sense-perl/debian/changelog Tue Dec 15 10:58:53 2009
@@ -1,3 +1,9 @@
+libcommon-sense-perl (3.0-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Angel Abad <angelabad at gmail.com> Tue, 15 Dec 2009 11:58:07 +0100
+
libcommon-sense-perl (2.03-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libcommon-sense-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcommon-sense-perl/debian/copyright?rev=48775&op=diff
==============================================================================
--- trunk/libcommon-sense-perl/debian/copyright (original)
+++ trunk/libcommon-sense-perl/debian/copyright Tue Dec 15 10:58:53 2009
@@ -1,8 +1,7 @@
-Format-Specification:
- http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: Marc Lehmann <schmorp at schmorp.de> and Robin Redeker <elmex at ta-sa.org>
-Upstream-Source: http://search.cpan.org/dist/common-sense/
-Upstream-Name: common-sense
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=59
+Maintainer: Marc Lehmann <schmorp at schmorp.de> and Robin Redeker <elmex at ta-sa.org>
+Source: http://search.cpan.org/dist/common-sense/
+Name: common-sense
Files: *
Copyright: 2009, Marc Lehmann <schmorp at schmorp.de>
@@ -81,21 +80,24 @@
-=====/_/_//_/\_,_/ /_/\_\
Files: debian/*
-Copyright: 2009, Angel Abad (Ikusnet SLL) <angel at grupoikusnet.com>
+Copyright: 2009, Angel Abad <angelabad at gmail.com>
2009, Ryan Niebur <ryan at debian.org>
2009, Jonathan Yu <jawnsy at cpan.org>
License: Artistic | GPL-1+
License: Artistic
- This program is free software; you can redistribute it and/or modify
- it under the terms of the Artistic License, which comes with Perl.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
License: GPL-1+
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 1, or (at your option)
- any later version.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
+
Modified: trunk/libcommon-sense-perl/sense.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcommon-sense-perl/sense.pm?rev=48775&op=diff
==============================================================================
--- trunk/libcommon-sense-perl/sense.pm (original)
+++ trunk/libcommon-sense-perl/sense.pm Tue Dec 15 10:58:53 2009
@@ -8,12 +8,13 @@
# supposed to be the same, with much lower memory usage, as:
#
+ # use utf8;
# use strict qw(vars subs);
# use feature qw(say state switch);
# no warnings;
# use warnings qw(FATAL closed threads internal debugging pack substr malloc
# portable prototype inplace io pipe unpack regexp
- # deprecated exiting glob digit printf utf8 layer
+ # deprecated exiting glob digit printf layer
# reserved parenthesis taint closure semicolon);
# no warnings qw(exec newline unopened);
@@ -50,6 +51,18 @@
=over 4
+=item use utf8
+
+While it's not common sense to write your programs in UTF-8, it's quickly
+becoming the most common encoding, and the most convenient encoding
+available (you can do really nice quoting tricks...). Experience has shown
+that our programs were either all pure ascii or utf-8, both of which will
+stay the same.
+
+There are few drawbacks to enabling UTF-8 source code by default (mainly
+some speed hits due to bugs in older versions of perl), so this module
+enables UTF-8 source code encoding by default.
+
=item use strict qw(subs vars)
Using C<use strict> is definitely common sense, but C<use strict
@@ -190,14 +203,14 @@
package common::sense;
-our $VERSION = '2.03';
+our $VERSION = '3.0';
# paste this into perl to find bitmask
# no warnings;
# use warnings qw(FATAL closed threads internal debugging pack substr malloc portable prototype
# inplace io pipe unpack regexp deprecated exiting glob digit printf
-# utf8 layer reserved parenthesis taint closure semicolon);
+# layer reserved parenthesis taint closure semicolon);
# no warnings qw(exec newline unopened);
# BEGIN { warn join "", map "\\x$_", unpack "(H2)*", ${^WARNING_BITS}; exit 0 };
@@ -205,10 +218,10 @@
sub import {
# verified with perl 5.8.0, 5.10.0
- ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\xfc\x3f\x33\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x03";
-
- # use strict vars subs
- $^H |= 0x00000600;
+ ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\xfc\x3f\x33\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x00";
+
+ # use utf8, strict vars subs
+ $^H |= 0x00800600;
# use feature
$^H{feature_switch} =
More information about the Pkg-perl-cvs-commits
mailing list