--- YAML-1.15/lib/YAML/Dumper.pm	2015-11-12 19:06:06.000000000 +0000

+++ YAML-1.15/lib/YAML/Dumper.pm	2015-11-12 19:07:11.959099158 +0000

@@ -441,7 +441,7 @@ sub _emit_str {

             $self->_emit_block($LIT_CHAR, $_[0]),

             $self->_emit($eb), last

               if $self->use_block;

-              Carp::cluck "[YAML] \$UseFold is no longer supported"

+              Carp::cluck("[YAML] \$UseFold is no longer supported")

               if $self->use_fold;

             $self->_emit($sf),

             $self->_emit_double($_[0]),

@@ -481,6 +481,7 @@

 sub is_literal_number {

     my $self = shift;

+    use B;

     # Stolen from JSON::Tiny

     return B::svref_2object(\$_[0])->FLAGS & (B::SVp_IOK | B::SVp_NOK)

             && 0 + $_[0] eq $_[0];