diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-07-21 21:12:09 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-07-21 21:12:09 -0400 |
| commit | b5525e6868ef0ad48a3350e324a271cc99817250 (patch) | |
| tree | be1ef9f2373d6bdccfc9c0fc7b8213e1a4191206 | |
| parent | d2f5d4f944d5cf66f47878e9def88f1c3a12c12d (diff) | |
| download | perl-b5525e6868ef0ad48a3350e324a271cc99817250.tar.gz | |
Avoid undefined warnings.
| -rw-r--r-- | t/porting/libperl.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/porting/libperl.t b/t/porting/libperl.t index b20cbf62c6..d7276fe533 100644 --- a/t/porting/libperl.t +++ b/t/porting/libperl.t @@ -456,7 +456,8 @@ for my $symbol (sort keys %expected) { my @o = exists $symbols{undef}{$symbol} ? sort keys %{ $symbols{undef}{$symbol} } : (); # In some FreeBSD versions memcmp disappears (compiler inlining?). - if (($^O eq 'freebsd' || $fake_style eq 'freebsd') && + if (($^O eq 'freebsd' || + (defined $fake_style && $fake_style eq 'freebsd')) && $symbol eq 'memcmp' && @o == 0) { SKIP: { skip("freebsd memcmp"); |