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