Permalink
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...
1 parent 7335144 commit d72befc33732f668f8b3ea7d07e32e00782dff7d @doherty committed Sep 13, 2012
Showing with 3 additions and 5 deletions.
  1. +1 −0 Changes
  2. +2 −5 lib/utf8/all.pm
View
@@ -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
@@ -40,18 +40,15 @@ 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;
'utf8'->import::into($target);
'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;

0 comments on commit d72befc

Please sign in to comment.