Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Fixed an ugly regex bug (parse-index.perl, v0.025)

by parv (Vicar)
on Feb 10, 2003 at 08:52 UTC ( #234055=note: print w/replies, xml ) Need Help??


in reply to search/browse freebsd ports INDEX*

Regex Fix (v0.025, feb 10 2003): Fixed a bug which would have macthed/failed for the wrong reasons. Before...

my $Configure = { ... # field to search in (if not 'show' whole index), , 'find' => [ 'name' , qr{^(?: (?{ join '|' , qw(show any) , ${$Fields{'keep'}} }) ) }xi ] };

...after...

my $Configure = { ... # field to search in (if not 'show' whole index), , 'find' => [ 'name' # regex to be compiled , join '|' , qw(show any) , ${$Fields{'keep'}} ] }; $Configure->{'find'}->[1] = qr/^ $Configure->{'find'}->[1] /xi;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://234055]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2020-06-01 23:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you really want to know if there is extraterrestrial life?



    Results (12 votes). Check out past polls.

    Notices?