URL
https://opencores.org/ocsvn/scan_based_serial_communication/scan_based_serial_communication/trunk
Subversion Repositories scan_based_serial_communication
Compare Revisions
- This comparison shows the changes necessary to convert path
/
- from Rev 6 to Rev 7
- ↔ Reverse comparison
Rev 6 → Rev 7
/scan_based_serial_communication/trunk/deperlify.pl
167,17 → 167,21
|
open (BLOCK_CODE, ">" . $temp_file); |
print BLOCK_CODE $text; |
|
# run perl on block |
$generated_text = `perl $temp_file`; |
|
# Stop if there's an error |
if ($? != 0) { |
die; |
# Check for errors in the eval statement |
if ($generated_text ne "") { |
`rm $temp_file`; |
} else { |
print "\n"; |
print "################################################################################################\n"; |
print "### Error in deperlify section. Check $temp_file for evaluated perl code ###\n"; |
print "################################################################################################\n"; |
print "\n"; |
exit; |
} |
|
`rm $temp_file`; |
|
return $generated_text; |
} |
|