croak "'$key' is not a valid config option for $class\n";
####
croak "'$key' is not a valid config option for $class\n"
unless $key eq 'OBJECT';
##
##
--- CPP.pm_orig 2019-04-20 00:50:28.000000000 +1000
+++ CPP.pm 2024-04-17 21:16:22.142182800 +1000
@@ -114,6 +114,9 @@
while (@config_options) {
my ($key, $value) = (shift @config_options, shift @config_options);
$key = uc $key;
+ if ($key eq 'OBJECT') {
+ $o->{ILSM}{MAKEFILE}{OBJECT} = $value;
+ }
if ($key eq 'NAMESPACE') {
_handle_namespace_cfg_option($o, $value);
}
##
##
use Inline CPP => Config =>
BUILD_NOISY => 1
CLEAN_AFTER_BUILD => 0,
OBJECT => '$(O_FILES)',
;
use Inline CPP;
for(1..3) {
print "Perfect random number: ", cast_die(), "\n";
}
__END__
__CPP__
#include "xkcd.h"
int cast_die() {
int rolled=xkcd_dice_roll();
return rolled;
}