1#!/usr/local/bin/perl 2use strict; 3use warnings; 4use PDL; 5use Inline qw{Pdlpp}; 6 7my $v = pdl(1)->pdl_core_version()->at(0); 8 9print <<"EOPM"; 10package PDL::Config::Debian; 11our \$pdl_core_version = $v; 121; 13EOPM 14 15__DATA__ 16 17__Pdlpp__ 18 19pp_def('pdl_core_version', 20 Pars => 'dummy(); int [o] pcv();', 21 Code => '$pcv() = PDL_CORE_VERSION;'); 22 23pp_done; 24