diff options
Diffstat (limited to 'lib/O.pm')
-rw-r--r-- | lib/O.pm | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/lib/O.pm b/lib/O.pm deleted file mode 100644 index 40d336e122..0000000000 --- a/lib/O.pm +++ /dev/null @@ -1,21 +0,0 @@ -package O; -use B qw(minus_c); -use Carp; - -sub import { - my ($class, $backend, @options) = @_; - eval "use B::$backend ()"; - if ($@) { - croak "use of backend $backend failed: $@"; - } - my $compilesub = &{"B::${backend}::compile"}(@options); - if (ref($compilesub) eq "CODE") { - minus_c; - eval 'END { &$compilesub() }'; - } else { - die $compilesub; - } -} - -1; - |