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
/scan_based_serial_communication
- from Rev 7 to Rev 6
- ↔ Reverse comparison
Rev 7 → Rev 6
/trunk/deperlify.pl
167,21 → 167,17
|
open (BLOCK_CODE, ">" . $temp_file); |
print BLOCK_CODE $text; |
|
# run perl on block |
$generated_text = `perl $temp_file`; |
|
# 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; |
# Stop if there's an error |
if ($? != 0) { |
die; |
} |
|
`rm $temp_file`; |
|
return $generated_text; |
} |
|