Experimental Physics and
Industrial Control System

On 2018-10-08 19:12:16+02:00 [email protected] wrote:

Hi Hinko,

On 10/08/2018 11:46 AM, Hinko Kocevar wrote:
> Looking at this old post, 
> https://epics.anl.gov/tech-talk/2017/msg01571.php, did you manage to
> solve perl issues?
> 
> I'm using base R3.15.5. Maybe there is a temporary fix avoid long
> waiting between IOC rebuild?

Yes, I modified the regular _expression_ to avoid the particular construct
that was causing the slow-up. This change will be in 3.15.6:

> commit 32a6f6c4f1672d4c7b3a7008de89b9ed4eb97a04
&gt; Author: Andrew Johnson <[email protected]>
&gt; Date:   Mon Oct 9 14:45:01 2017 +0200
&gt; 
&gt;     Fix DBD parsing slow-up with Perl 5.20 and later
&gt; 
&gt; diff --git a/src/tools/DBD/Parser.pm b/src/tools/DBD/Parser.pm
&gt; index 9014206..113ef42 100644
&gt; --- a/src/tools/DBD/Parser.pm
&gt; +++ b/src/tools/DBD/Parser.pm
&gt; @@ -78,8 +78,13 @@ sub parseCommon {
&gt;          m/\G \s* /oxgc;
&gt;  
&gt;          # Extract POD
&gt; -        if (m/\G ( = [a-zA-Z] .* ) \n/oxgc) {
&gt; -            $obj-&gt;add_pod($1, &amp;parsePod);
&gt; +        if (m/\G ( = [a-zA-Z] )/xgc) {
&gt; +           # The above regex was split from the one below for performance.
&gt; +           # Using m/\G ( = [a-zA-Z] .* ) \n/ is slow in Perl 5.20 and later.
&gt; +           my $directive = $1;
&gt; +           m/\G ( .* ) \n/xgc;
&gt; +           $directive .= $1;
&gt; +            $obj-&gt;add_pod($directive, &amp;parsePod);
&gt;          }
&gt;          elsif (m/\G \# /oxgc) {
&gt;              if (m/\G \# ! BEGIN \{ ( [^}]* ) \} ! \# \# \n/oxgc) {

HTH,

- Andrew


-- 
Arguing for surveillance because you have nothing to hide is no
different than making the claim, "I don't care about freedom of
speech because I have nothing to say." -- Edward Snowdon
</[email protected]>