Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Enable feature unicode_strings if the perl is new enough

See "perldoc feature" for a description of the unicode_strings
feature.

Fixes GH #2
  • Loading branch information...
commit d72befc33732f668f8b3ea7d07e32e00782dff7d 1 parent 7335144
@doherty authored
Showing with 3 additions and 5 deletions.
  1. +1 −0  Changes
  2. +2 −5 lib/utf8/all.pm
View
1  Changes
@@ -1,6 +1,7 @@
Revision history for Perl module {{$dist->name}}
{{$NEXT}}
+ * Enable unicode_strings (see perldoc feature) [GH #2]
0.007 2012-08-01
* Use version.pm for comparing versions in the test suite
View
7 lib/utf8/all.pm
@@ -40,11 +40,7 @@ reason to:
=cut
use Import::Into;
-use Encode ();
-use parent 'charnames';
-use parent 'utf8';
-use parent 'open';
-use parent 'warnings';
+use parent qw(Encode charnames utf8 open warnings feature);
sub import {
my $target = caller;
@@ -52,6 +48,7 @@ sub import {
'open'->import::into($target, qw{:encoding(UTF-8) :std});
'charnames'->import::into($target, qw{:full :short});
'warnings'->import::into($target, qw{FATAL utf8});
+ 'feature'->import::into($target, qw{unicode_strings}) if $^V >= v5.11.0;
# utf8 in @ARGV
state $have_encoded_argv = 0;
Please sign in to comment.
Something went wrong with that request. Please try again.