Subversion Repositories DevTools

Rev

Rev 4424 | Rev 4501 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4424 Rev 4455
Line 2013... Line 2013...
2013 
    #   Keep a list a names that have been set.
 2013 
    #   Keep a list a names that have been set.
2014 
    #
 2014 
    #
2015 
    if ( ! $SetList_names{$name} && ! $nowarn )
 2015 
    if ( ! $SetList_names{$name} && ! $nowarn )
2016 
    {
 2016 
    {
2017 
        no strict 'refs';
 2017 
        no strict 'refs';
2018 
        Warning("SetList: $name. Defined outside the ScanList/SetList directive","May clash with Jats internals") if defined ( @$name );
 2018 
        Warning("SetList: $name. Defined outside the ScanList/SetList directive","May clash with Jats internals") if ( @$name );
2019 
        use strict 'refs';
 2019 
        use strict 'refs';
2020 
    }
 2020 
    }
2021 
    $SetList_names{$name} = 1;
 2021 
    $SetList_names{$name} = 1;
2022 
 
 2022 
 
2023 
    #
 2023 
    #
Line 7930... Line 7930...
7930 
    my ($defs) = @_;
 7930 
    my ($defs) = @_;
7931 
    no strict 'refs';
 7931 
    no strict 'refs';
7932 
    foreach (  split( '\s*[:,]\s*', $defs ) )
 7932 
    foreach (  split( '\s*[:,]\s*', $defs ) )
7933 
    {
 7933 
    {
7934 
        return 1
 7934 
        return 1
7935 
            if ( defined( $$_ ) || defined( @$_ ) );
 7935 
            if ( defined( $$_ ) || ( @$_ ) );
7936 
    }
 7936 
    }
7937 
    use strict 'refs';
 7937 
    use strict 'refs';
7938 
    return 0;
 7938 
    return 0;
7939 
}
 7939 
}
7940 
 
 7940