| … | |
… | |
| 2291 | $object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object; |
2291 | $object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object; |
| 2292 | |
2292 | |
| 2293 | $bcd->{$object}{$elem} = $value; |
2293 | $bcd->{$object}{$elem} = $value; |
| 2294 | |
2294 | |
| 2295 | } elsif ($insn eq "eval") { |
2295 | } elsif ($insn eq "eval") { |
| 2296 | bcd_edit_eval shift @insns; |
2296 | my $perl = shift @insns; |
|
|
2297 | bcd_edit_eval "#line 1 'eval'\n$perl"; |
| 2297 | |
2298 | |
| 2298 | } elsif ($insn eq "do") { |
2299 | } elsif ($insn eq "do") { |
| 2299 | my $path = shift @insns; |
2300 | my $path = shift @insns; |
| 2300 | my $file = file_load $path; |
2301 | my $file = file_load $path; |
| 2301 | bcd_edit_eval "#line 1 '$path'\n$file"; |
2302 | bcd_edit_eval "#line 1 '$path'\n$file"; |
