Skip Menu |

This queue is for tickets about the File-Stat-Bits CPAN distribution.

Report information
The Basics
Id: 20093
Status: resolved
Priority: 0/
Queue: File-Stat-Bits

People
Owner: FEDOROV [...] cpan.org
Requestors: aaron [...] FreeBSD.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.00
Fixed in: (no value)



Subject: Test 18 fails under all Perl 5's
Test 18 fails under all Perl 5's. t/0.t line 65.
From: pirzyk [...] freebsd.org
On Sun Jun 25 12:34:34 2006, guest wrote: Show quoted text
> Test 18 fails under all Perl 5's. t/0.t line 65.
Here is a patch that fixes this problem. The minor bits within the st_rdev are not continious (since there was a need for more than 8 bits). This is for the t/gen-stat.c file. @@ -126,8 +121,9 @@ *_shift=shift; - for(*_mask=0; mask=MASK(shift), f(mask) != 0; ++shift) - *_mask |= mask; + for(*_mask=0; mask=MASK(shift), shift < sizeof mask * 8; ++shift) + if ( f(mask) != 0 ) + *_mask |= mask; }