On Thursday 31 December 2009 at 07:21, coke  wrote:

> Author: coke
> Date: Thu Dec 31 15:21:15 2009
> New Revision: 43344
> URL: https://trac.parrot.org/parrot/changeset/43344

> --- branches/one_make/tools/dev/checkdepend.pl        Thu Dec 31 14:28:42 
> 2009        
(r43343)
> +++ branches/one_make/tools/dev/checkdepend.pl        Thu Dec 31 15:21:15 
> 2009        
(r43344)

> @@ -84,6 +84,20 @@
>      local undef $/;
>      $rules = <$mf>;
>  }
> +close $mf;
> +
> +# inline all "include"'d Makefiles;
> +while ($rules =~ /^include\s+(.*)$/m) {
> +    my $sub_makefile = $1;
> +    open my $smf, '<', $sub_makefile;
> +    my $subrules;
> +    {
> +        local undef $/;

local $/; should suffice; I think that stray undef in there clobbers the global 
before the localization.

-- c 
_______________________________________________
http://lists.parrot.org/mailman/listinfo/parrot-dev

Reply via email to