- $! = 0;
- $r = eval { pathconf( $testdir, eval "$constant()" ) };
- _check_and_report( $@, $r, qq[calling pathconf("$testdir", $constant)] );
+ _check_and_report(sub { pathconf($testdir, shift) }, $constant,
+ "calling pathconf('$testdir', $constant)");