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;
}