equal
deleted
inserted
replaced
41 if ($line =~ /REM processed spidata/) |
41 if ($line =~ /REM processed spidata/) |
42 { |
42 { |
43 next; # discard this line - it will be regenerated by the __ECOM_PLUGIN |
43 next; # discard this line - it will be regenerated by the __ECOM_PLUGIN |
44 } |
44 } |
45 |
45 |
|
46 if ($line =~ /REM processed \s*patchdata/i) |
|
47 { |
|
48 $line =~ s/REM processed\s+//; # reinstate the original patchdata line |
|
49 my $discarded = <>; # discard the final "patchdata ... addr" line |
|
50 } |
|
51 |
46 $line =~ s/REM processed //; # re-enable other directives |
52 $line =~ s/REM processed //; # re-enable other directives |
47 |
53 |
48 if ($line =~ /^time=/) |
54 if ($line =~ /^time=/) |
49 { |
55 { |
50 $line = "time=##TODAY## 12:00:00\n"; |
56 $line = "time=##TODAY## 12:00:00\n"; |