[perl #123635] [PATCH] collapse 2 regexps in win32/FindExt.pm

On Tue Jan 20 03:25:41 2015, bulk88 wrote:
> See attached patch.
> 
> sub has_xs_or_c {
>      my $dir = shift;
> +    my $item;
>      opendir my $dh, $dir or die "opendir $dir: $!";
> -    while (defined (my $item = readdir $dh)) {
> -        return 1 if $item =~ /\.xs$/;
> -        return 1 if $item =~ /\.c$/;
> -    }
> +    $item =~ /\.(?:xs|c)$/ ? return 1 : () while defined ($item = readdir $dh);
>      return 0;
>  }

Based on the discussion and my own opinion of the change shown above, 
rejecting this patch and ticket.

Tony

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=123635

• [perl #123635] [PATCH] collapse 2 regexps in win32/FindExt.pm by Tony Cook via RT