This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/ + -Wall
[perl5.git] / ext / GDBM_File / GDBM_File.xs
index 1ec5ea8..3f18a4a 100644 (file)
@@ -197,6 +197,10 @@ constant(char *name, int arg)
     errno = EINVAL;
     return 0;
 
+    if (0) {
+        goto not_there; /* -Wall */
+    }
+
 not_there:
     errno = ENOENT;
     return 0;