ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/common-sense/sense.pm
(Generate patch)

Comparing common-sense/sense.pm (file contents):
Revision 1.13 by root, Tue Sep 1 13:42:29 2009 UTC vs.
Revision 1.14 by root, Tue Sep 1 13:54:56 2009 UTC

… …
105our $VERSION = '1.0'; 105our $VERSION = '1.0';
106 106
107# no warnings; 107# no warnings;
108# use warnings qw(FATAL closed threads internal debugging pack substr malloc unopened portable prototype 108# use warnings qw(FATAL closed threads internal debugging pack substr malloc unopened portable prototype
109# inplace io pipe unpack regexp deprecated exiting redefine glob digit printf 109# inplace io pipe unpack regexp deprecated exiting redefine glob digit printf
110# utf8 layer reserved parenthesis taint closure); 110# utf8 layer reserved parenthesis taint closure semicolon);
111# no warnings qw(exec newline);
111# BEGIN { warn join "", map "\\x$_", unpack "(H2)*", ${^WARNING_BITS} }; 112# BEGIN { warn join "", map "\\x$_", unpack "(H2)*", ${^WARNING_BITS}; exit 0 };
112 113
113# overload should be included 114# overload should be included
114 115
115sub import { 116sub import {
116 # verified with perl 5.8.0, 5.10.0 117 # verified with perl 5.8.0, 5.10.0
117 ${^WARNING_BITS} = "\xfc\xff\xff\x00\xcf\xf3\xcf\xc0\xf3\xcc\x33\x03"; 118 ${^WARNING_BITS} = "\xfc\x3f\xf3\x00\xcf\xf3\xcf\xc0\xf3\xfc\x33\x03";
118 119
119 # use strict vars subs 120 # use strict vars subs
120 $^H |= 0x00000600; 121 $^H |= 0x00000600;
121 122
122 # use feature 123 # use feature

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines