Experimental Physics and
Industrial Control System

"Johnson, Andrew N." <[email protected]> · Mon, 8 Oct 2018 17:12:00 +0000

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

Experimental Physics and Industrial Control System

Experimental Physics and
Industrial Control System