URL
https://opencores.org/ocsvn/scan_based_serial_communication/scan_based_serial_communication/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 3 |
Rev 4 |
| Line 165... |
Line 165... |
my $temp_file = `mktemp deperlify.XXXXXXXXX`;
|
my $temp_file = `mktemp deperlify.XXXXXXXXX`;
|
chomp $temp_file;
|
chomp $temp_file;
|
|
|
open (BLOCK_CODE, ">" . $temp_file);
|
open (BLOCK_CODE, ">" . $temp_file);
|
print BLOCK_CODE $text;
|
print BLOCK_CODE $text;
|
|
|
# run perl on block
|
# run perl on block
|
$generated_text = `perl $temp_file`;
|
$generated_text = `perl $temp_file`;
|
`rm $temp_file`;
|
|
|
|
# Check for errors in the eval statement
|
# Stop if there's an error
|
if ($@) {
|
if ($? != 0) {
|
print "Error in perl section:\n" . $text . "\n ERRORS: \n" . $@;
|
|
die;
|
die;
|
}
|
}
|
|
|
|
`rm $temp_file`;
|
|
|
return $generated_text;
|
return $generated_text;
|
}
|
}
|
|
|
|
|
################################################################################################
|
################################################################################################
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.