File tree Expand file tree Collapse file tree 1 file changed +8
-5
lines changed Expand file tree Collapse file tree 1 file changed +8
-5
lines changed Original file line number Diff line number Diff line change @@ -92,11 +92,14 @@ is ZERO3, '0.0';
92
92
cmp_ok(abs(PI - 3.1416), ' <' , 0.0001);
93
93
is Other::PI, 3.141;
94
94
95
- use constant E2BIG => $! = 7;
96
- cmp_ok E2BIG, ' ==' , 7;
97
- # This is something like "Arg list too long", but the actual message
98
- # text may vary, so we can't test much better than this.
99
- cmp_ok length (E2BIG), ' >' , 6;
95
+ SKIP: {
96
+ skip " GNU/Hurd doesn't use 7 as E2BIG" , 2 if $^O eq " gnu" ;
97
+ use constant E2BIG => $! = 7;
98
+ cmp_ok E2BIG, ' ==' , 7;
99
+ # This is something like "Arg list too long", but the actual message
100
+ # text may vary, so we can't test much better than this.
101
+ cmp_ok length (E2BIG), ' >' , 6;
102
+ }
100
103
101
104
is @warnings , 0 or diag join " \n - " , " unexpected warning:" , @warnings ;
102
105
@warnings = (); # just in case
You can’t perform that action at this time.
0 commit comments