--- OpenCL/OpenCL.pm	2012/04/24 14:30:57	1.53
+++ OpenCL/OpenCL.pm	2012/04/24 14:57:06	1.54
@@ -385,7 +385,7 @@
 use common::sense;
 
 BEGIN {
-   our $VERSION = '0.96';
+   our $VERSION = '0.97';
 
    require XSLoader;
    XSLoader::load (__PACKAGE__, $VERSION);
@@ -843,13 +843,15 @@
 sub OpenCL::Context::build_program {
    my ($self, $prog, $options) = @_;
 
+   require Carp;
+
    $prog = $self->program_with_source ($prog)
       unless ref $prog;
 
    for my $dev ($self->devices) {
       eval { $prog->build ($dev, $options); 1 }
-         or Carp::croak "Building OpenCL program for device '" . $dev->name . "' failed:\n"
-                      . $prog->build_log ($dev);
+         or Carp::croak ("Building OpenCL program for device '" . $dev->name . "' failed:\n"
+                       . $prog->build_log ($dev));
    }
 
    $prog