[PATCH perlsnap] '-' !~ /\w/

I was looking through the changes that had accumulated over the weekend
on the perl5-changes mailing list, and have a couple of nits. Here's
the first.

Jonathan Stowe added ext/NDBM_File/hints/linux.pl with a test to see
whether -ldgbm appeared in $Config{libs}. As far as I can tell,
$Config{libs} is a space-separated list. However '-' does not match
/\w/, so there is no \b between ' ' and '-', nor between the \W
character before start-of-string and '-'. Hence, I changed the \b at
the beginning to \B. This will now match '-lgdbm -lfoo' and
'-lfoo -lgdbm' (and also '-foo,-lgdbm' since ',' is also \W) but not
'-lnew-lgdbm' .

--- ext/NDBM_File/hints/linux.pl.orig   Wed Jun 27 13:52:11 2001
+++ ext/NDBM_File/hints/linux.pl        Sun Jul  1 07:02:36 2001
@@ -3,4 +3,4 @@
 # (no null key support)
 # Jonathan Stowe <gellyfish@gellyfish.com>
 use Config;
-$self->{LIBS} = ['-lgdbm'] if $Config{libs} =~ /\b-lgdbm\b/;
+$self->{LIBS} = ['-lgdbm'] if $Config{libs} =~ /\B-lgdbm\b/;
End of patch.

Cheers,
Philip
-- 
Philip Newton <Philip.Newton@gmx.net>

• [PATCH perlsnap] '-' !~ /\w/ by Philip Newton
• Re: [PATCH perlsnap] '-' !~ /\w/ by Ronald J Kimball
• Re: [PATCH perlsnap] '-' !~ /\w/ by Philip Newton
• Re: [PATCH perlsnap] '-' !~ /\w/ by Jarkko Hietaniemi
• Re: [PATCH perlsnap] '-' !~ /\w/ by Philip Newton