Weird behaviour between CORE::Glob and File::Glob

mikb has asked for the wisdom of the Perl Monks concerning the following question:

Can someone riddle me this?

$ ls
HR040624.CSV  MMFAU443.log  MMFAU444.log  MMFAU445.log  MMFB0221.log  
+MMFC0624.log

$ ls {{[Hh][Rr],[Cc][Cc]}*.[Cc][Ss][Vv],[Mm][Mm][Ff][Bb]*.{[Ll][Oo][Gg
+],[Bb][Aa][Dd]},{[Ee][Mm],[Rr][Tt]}*.[Tt][Xx][Tt]} 2>/dev/null
HR040624.CSV  MMFB0221.log

$ perl -e 'print join(" ", glob("{{[Hh][Rr],[Cc][Cc]}*.[Cc][Ss][Vv],[M
+m][Mm][Ff][Bb]*.{[Ll][Oo][Gg],[Bb][Aa][Dd]},{[Ee][Mm],[Rr][Tt]}*.[Tt]
+[Xx][Tt]}")), "\n";'

$ perl -e 'use File::Glob; print join(" ", glob("{{[Hh][Rr],[Cc][Cc]}*
+.[Cc][Ss][Vv],[Mm][Mm][Ff][Bb]*.{[Ll][Oo][Gg],[Bb][Aa][Dd]},{[Ee][Mm]
+,[Rr][Tt]}*.[Tt][Xx][Tt]}")), "\n";'
HR040624.CSV MMFB0221.log
$ perl -e 'use File::Glob qw( :glob ); print join(" ", glob("{{[Hh][Rr
+],[Cc][Cc]}*.[Cc][Ss][Vv],[Mm][Mm][Ff][Bb]*.{[Ll][Oo][Gg],[Bb][Aa][Dd
+]},{[Ee][Mm],[Rr][Tt]}*.[Tt][Xx][Tt]}")), "\n";'

$
[download]

So, does anyone know what's going on? Mike

Comment on Weird behaviour between CORE::Glob and File::Glob Download Code

Replies are listed 'Best First'.
Re: Weird behaviour between CORE::Glob and File::Glob by keszler (Priest) on Jul 01, 2004 at 08:54 UTC
Try using `perl -d:ptkdb -e ....` (Assumes that Devel::ptkdb is installed) 1st calls &File::Glob::csh_glob 3rd calls &File::Glob::glob which calls &File::Glob::bsd_glob, just after noting that "# File::Glob::glob() is deprecated because its prototype is different from CORE::glob() (use bsd_glob() instead)"	[reply]