diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-17 17:50:50 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-17 17:50:50 +0000 |
| commit | 1853469bd7bc4f59baf47a0eb2f44b3553f0a805 (patch) | |
| tree | bc6d2308aa3d9808f3e8487eaa2cfa76fbd17c60 /O.pm | |
| parent | b1475138a0e30c3f84f731b7761d8635cbb7f4c8 (diff) | |
| download | perl-1853469bd7bc4f59baf47a0eb2f44b3553f0a805.tar.gz | |
[perlext] Assorted changes to the compiler
p4raw-id: //depot/perlext/Compiler@531
Diffstat (limited to 'O.pm')
| -rw-r--r-- | O.pm | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -2,15 +2,13 @@ package O; use B qw(minus_c); use Carp; -my $compilesub; - sub import { my ($class, $backend, @options) = @_; eval "use B::$backend ()"; if ($@) { croak "use of backend $backend failed: $@"; } - $compilesub = &{"B::${backend}::compile"}(@options); + my $compilesub = &{"B::${backend}::compile"}(@options); if (ref($compilesub) eq "CODE") { minus_c; eval 'END { &$compilesub() }'; |