You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
358 fYou don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
358 fYou don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
358 fYou don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
! 0a=JJj"Tp,F 358ľ fYou don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
! l=JJj"Tp,F 0 $ !lze67yLZ7 hO !package O; our $VERSION = '1.03'; use B (); our $BEGIN_output; our $saveout_fh; sub import { my ($class, @options) = @_; my ($quiet, $veryquiet) = (0, 0); if ($options[0] eq '-q' || $options[0] eq '-qq') { $quiet = 1; open ($saveout_fh, ">&", STDOUT); close STDOUT; open (STDOUT, ">", \$O::BEGIN_output); if ($options[0] eq '-qq') { $veryquiet = 1; } shift @options; } my $backend = shift (@options); eval q[ BEGIN { B::minus_c; B::save_BEGINs; } CHECK { if ($quiet) { close STDOUT; open (STDOUT, ">&", $saveout_fh); close $saveout_fh; } # Note: if you change the code after this 'use', please # change the fudge factors in B::Concise (grep for # "fragile kludge") so that its output still looks # nice. Thanks. --smcc use B::].$backend.q[ (); my $compilesub = &{"B::${backend}::compile"}(@options); if (ref($compilesub) ne "CODE") { die $compilesub; } local $savebackslash = $\; local ($\,$",$,) = (undef,' ',''); &$compilesub(); close STDERR if $veryquiet; } ]; if ($@) { my $msg = "$@"; require Carp; Carp::croak("Loading compiler backend 'B::$backend' failed: $msg"); } } 1; __END__ =head1 NAME O - Generic interface to Perl Compiler backends =head1 SYNOPSIS perl -MO=[-q,]Backend[,OPTIONS] foo.pl =head1 DESCRIPTION This is the module that is used as a frontend to the Perl Compiler. If you pass the C<-q> option to the module, then the STDOUT filehandle will be redirected into the variable C<$O::BEGIN_output> during compilation. This has the effect that any output printed to STDOUT by BEGIN blocks or use'd modules will be stored in this variable rather than printed. It's useful with those backends which produce output themselves (C