This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
val was not initialized, so dirfd's value for fail
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 18 Jul 2005 10:20:48 +0000 (10:20 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 18 Jul 2005 10:20:48 +0000 (10:20 +0000)
depended on the previous test(s)

p4raw-id: //depot/metaconfig@25168

U/perl/d_dirfd.U

index 5d75d83..3900610 100644 (file)
@@ -65,6 +65,7 @@ int main() {
                exit(1);
 }
 EOM
+val=$undef
 set dirfd
 if eval $compile; then
        val="$define"