On Wed, 10 Sep 2003, Stas Bekman wrote: > Understood. Yes, but glue_pods just uses the data from the > libscan. libscan certainly shouldn't pick those. I can't > reproduce this on linux, but we probably need a more > portable pattern which you tried to provide, however I > think it's not the right fix. What we want to skip is > m|CVS/[^/]+$/, but it won't work on systems with a > different slash. So File::Spec comes to help: > > return '' if File::Spec->splitdir( $path )[-2] eq 'CVS'; > > or something like that. however File::Spec::Unix talks > about $path being a path, without a volume, which I have > no idea if it's true. So may be a better solution is: > > use File::Basename; > return '' (basename dirname $path) eq 'CVS'; > > This is untested, but the point is that using portable > tools sounds like a better idea than trying to craft the > regex.
Thanks very much, Stas - I'll test those out, and try to come up with something portable. -- best regards, randy --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
