diff options
Diffstat (limited to 'ext/File/Glob/Glob.pm')
| -rw-r--r-- | ext/File/Glob/Glob.pm | 26 |
1 files changed, 4 insertions, 22 deletions
diff --git a/ext/File/Glob/Glob.pm b/ext/File/Glob/Glob.pm index 1ae894f048..a704b567bb 100644 --- a/ext/File/Glob/Glob.pm +++ b/ext/File/Glob/Glob.pm @@ -31,7 +31,6 @@ use XSLoader (); GLOB_NOSPACE GLOB_QUOTE GLOB_TILDE - GLOB_UTF8 ); %EXPORT_TAGS = ( @@ -52,7 +51,6 @@ use XSLoader (); GLOB_NOSPACE GLOB_QUOTE GLOB_TILDE - GLOB_UTF8 glob bsd_glob ) ], @@ -64,11 +62,10 @@ sub import { require Exporter; my $i = 1; while ($i < @_) { - if ($_[$i] =~ /^:(case|nocase|globally|utf8)$/) { + if ($_[$i] =~ /^:(case|nocase|globally)$/) { splice(@_, $i, 1); $DEFAULT_FLAGS &= ~GLOB_NOCASE() if $1 eq 'case'; $DEFAULT_FLAGS |= GLOB_NOCASE() if $1 eq 'nocase'; - $DEFAULT_FLAGS |= GLOB_UTF8() if $1 eq 'utf8'; if ($1 eq 'globally') { local $^W; *CORE::GLOBAL::glob = \&File::Glob::csh_glob; @@ -206,19 +203,15 @@ File::Glob - Perl extension for BSD glob routine ## override the core glob (CORE::glob() does this automatically ## by default anyway, since v5.6.0) use File::Glob ':globally'; - my @sources = <*.{c,h,y}>; + my @sources = <*.{c,h,y}> ## override the core glob, forcing case sensitivity use File::Glob qw(:globally :case); - my @sources = <*.{c,h,y}>; + my @sources = <*.{c,h,y}> ## override the core glob forcing case insensitivity use File::Glob qw(:globally :nocase); - my @sources = <*.{c,h,y}>; - - ## override the core glob forcing UTF-8 names - use File::Glob qw(:globally :utf8); - my @sources = <*.{c,h,y}>; + my @sources = <*.{c,h,y}> =head1 DESCRIPTION @@ -328,17 +321,6 @@ order (case does not matter) rather than in ASCII order. =back -The following flag has been added in the Perl implementation for -Unicode compatibility: - -=over 4 - -=item C<GLOB_UTF8> - -The filenames returned will be marked as being in UTF-8 encoding of -Unicode. Note that it is your responsibility to ascertain that the -filesystem you are globbing in returns valid UTF-8 filenames. - =head1 DIAGNOSTICS bsd_glob() returns a list of matching paths, possibly zero length. If an |