This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid compiler warning showing up on darwin.
authorJames E Keenan <jkeenan@cpan.org>
Tue, 11 Sep 2018 00:30:11 +0000 (20:30 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Tue, 25 Sep 2018 12:59:01 +0000 (08:59 -0400)
For example, in http://perl5.test-smoke.org/report/69659

dist/Time-HiRes/fallback/const-c.inc

index 2c29a0b..99992d1 100644 (file)
@@ -361,6 +361,7 @@ constant_19 (pTHX_ const char *name, IV *iv_return) {
       *iv_return = CLOCK_UPTIME_COARSE;
       return PERL_constant_ISIV;
 #else
+      *iv_return = 0;
       return PERL_constant_NOTDEF;
 #endif
     }
@@ -372,6 +373,7 @@ constant_19 (pTHX_ const char *name, IV *iv_return) {
       *iv_return = CLOCK_REALTIME_FAST;
       return PERL_constant_ISIV;
 #else
+      *iv_return = 0;
       return PERL_constant_NOTDEF;
 #endif
     }
@@ -383,6 +385,7 @@ constant_19 (pTHX_ const char *name, IV *iv_return) {
       *iv_return = CLOCK_MONOTONIC_RAW;
       return PERL_constant_ISIV;
 #else
+      *iv_return = 0;
       return PERL_constant_NOTDEF;
 #endif
     }