[ViewVC] Diff of: cvs/OpenCL/OpenCL.pm

Comparing OpenCL/OpenCL.pm (file contents):
Revision 1.61 by root, Sat Apr 28 13:31:40 2012 UTC vs.
Revision 1.62 by root, Sat Apr 28 13:33:04 2012 UTC

 =cut
 package OpenCL;
 use common::sense;
+use Carp ();
 use Async::Interrupt ();
 our $POLL_FUNC; # set by XS
 BEGIN {
-   our $VERSION = '0.97';
+   our $VERSION = '0.98';
    require XSLoader;
    XSLoader::load (__PACKAGE__, $VERSION);
    @OpenCL::Platform::ISA      =
 =cut
 sub OpenCL::Context::build_program {
    my ($self, $prog, $options) = @_;
-   require Carp;
    $prog = $self->program_with_source ($prog)
       unless ref $prog;
    eval { $prog->build (undef, $options); 1 }
       or errno == BUILD_PROGRAM_FAILURE
       or Carp::croak "OpenCL::Context->build_program: " . err2str;
    # we check status for all devices
    for my $dev ($self->devices) {
       $prog->build_status ($dev) == BUILD_SUCCESS
-         or Carp::croak ("Building OpenCL program for device '" . $dev->name . "' failed:\n"
+         or Carp::croak "Building OpenCL program for device '" . $dev->name . "' failed:\n"
-                         . $prog->build_log ($dev));
+                        . $prog->build_log ($dev);
    }
    $prog
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines