Benchmark-Perl-Formance-Cargo

 view release on metacpan or  search on metacpan

share/P6STD/STD.pm6  view on Meta::CPAN

method require_P6 {
    require STD_P6;
    self;
}

#################
# Symbol tables #
#################

method newlex ($needsig = 0) {
    my $oid = $*CURLEX.id;
    $ALL.{$oid} === $*CURLEX or die "internal error: current lex id is invalid";
    my $line = self.lineof(self.pos);
    my $id;
    if $*NEWLEX {
        $*NEWLEX.<OUTER::> = $*CURLEX.idref;
        $*CURLEX = $*NEWLEX;
        $*NEWLEX = 0;
        $id = $*CURLEX.id;
    }
    else {
        $id = 'MY:file<' ~ $*FILE<name> ~ '>:line(' ~ $line ~ '):pos(' ~ self.pos ~ ')';
        $*CURLEX = Stash.new(
            'OUTER::' => [$oid],
            '!file' => $*FILE, '!line' => $line,
            '!id' => [$id],
        );
    }
    $*CURLEX.<!NEEDSIG> = 1 if $needsig;
    $*CURLEX.<!IN_DECL> = $*IN_DECL if $*IN_DECL;
    $ALL.{$id} = $*CURLEX;
    self.<LEX> = $*CURLEX;
    $*DECLARAND<curlex> = $*CURLEX if $*DECLARAND;
    self;
}

method finishlex {
    my $line = self.lineof(self.pos);
    $*CURLEX<$_> //= NAME.new( name => '$_', file => $*FILE, line => $line, dynamic => 1, scope => 'my' );

share/P6STD/boot/STD.pmc  view on Meta::CPAN

require STD_P5;
$self;
};
## method require_P6
sub require_P6 {
no warnings 'recursion';
my $self = shift;
require STD_P6;
$self;
};
## method newlex ($needsig = 0)
sub newlex {
no warnings 'recursion';
my $self = shift;
my $needsig = @_ ? shift() : 0;
my $oid = $::CURLEX->id;
$ALL->{$oid} == $::CURLEX or die "internal error: current lex id is invalid";
my $line = $self->lineof($self->{'_pos'});
my $id;
if ($::NEWLEX) {
$::NEWLEX->{'OUTER::'} = $::CURLEX->idref;
$::CURLEX = $::NEWLEX;
$::NEWLEX = 0;
$id = $::CURLEX->id;
}
else {
$id = 'MY:file<' . $::FILE->{'name'} . '>:line(' . $line . '):pos(' . $self->{'_pos'} . ')';
$::CURLEX = Stash->new(
'OUTER::' => [$oid],
'!file' => $::FILE, '!line' => $line,
'!id' => [$id],
);
};
$::CURLEX->{'!NEEDSIG'} = 1 if $needsig;
$::CURLEX->{'!IN_DECL'} = $::IN_DECL if $::IN_DECL;
$ALL->{$id} = $::CURLEX;
$self->{'LEX'} = $::CURLEX;
$::DECLARAND->{'curlex'} = $::CURLEX if $::DECLARAND;
$self;
};
## method finishlex
sub finishlex {
no warnings 'recursion';
my $self = shift;

share/SpamAssassin/easy_ham/00305.4d30f302b0e02fed5944d83cf2de08e4  view on Meta::CPAN

between thugs.

Put crudely, and at its most racist, the FBI and the Winter Hill Gang
were the (mostly) Irish thugs, and Patriarcha's "family" were, of
course, the (mostly) Italian thugs.


Think Scorsese's upcoming "Gangs of New York", only with
counter-reformatory overtones. Hoover's South Boston "social-club"
putsch, starting in the mid 1960's, was particularly audacious in
hindsight. The U.S. Federal Government actually decided to underwrite
a reversal of the prohibition-era capture of the nation's rackets by
the Italians from the Irish. The fact that the plot was hatched not
for New York, but for South Boston, the most Irish place in the US,
only makes even more gigantic the Big Lie that was told by the FBI to
its ostensible political masters about bringing down organized crime
there once and for all.

The result, as we all found out, wasn't swapping the heroin of
Italian Boston mob violence for Irish methadone. Hoover was,
posthumously, swapping it for Oxycontin, or crystal methamphetamine

share/SpamAssassin/easy_ham/00794.ce4c417f911968e4be6ee1203db0bd94  view on Meta::CPAN

List-Help: <mailto:fork-request@xent.com?subject=help>
List-Post: <mailto:fork@spamassassin.taint.org>
List-Subscribe: <http://xent.com/mailman/listinfo/fork>, <mailto:fork-request@xent.com?subject=subscribe>
List-Id: Friends of Rohit Khare <fork.xent.com>
List-Unsubscribe: <http://xent.com/mailman/listinfo/fork>,
    <mailto:fork-request@xent.com?subject=unsubscribe>
List-Archive: <http://xent.com/pipermail/fork/>
Date: Thu, 26 Sep 2002 16:37:27 -0700


In essence, hindsight justification.  The progressives weren't in the
middle, they were in a society at one end and they wanted a society at
the other end.  The middle is more or less where they got stopped.

As to an intervention that worked, I actually have some nice things to
say about the SEC, at least in theory.  I have a few nasty things to say
as well, but on the whole it has been a very good thing.


> -----Original Message-----
> From: fork-admin@xent.com [mailto:fork-admin@xent.com] On Behalf Of

share/SpamAssassin/easy_ham_2/00362.10247e6e4b5d711a09d7d81c58dcf97c  view on Meta::CPAN

         /* do something - doesn't fall through */
      case 2:
         /* do something - falls through to next case*/
         continue;
      case 3:
         /* do something - doesn't fall through */
      default:
         /* do something - doesn't fall through */
   }

Still, hindsight and all that.  Sigh.

Later,
Kenn



-- 
Irish Linux Users' Group: ilug@linux.ie
http://www.linux.ie/mailman/listinfo/ilug for (un)subscription information.
List maintainer: listmaster@linux.ie

share/SpamAssassin/easy_ham_2/00693.2183b91fb14b93bdfaab337b915c98bb  view on Meta::CPAN

to say that other people aren't doing some reasonable bolt-on XML
support for the stuff they have.

> You have some heavy lifting to do to convince your customers and
> partners to follow along. What do you have to do to set the standard
> for adoption and upgrading to this next generation?

We have to present the picture that we are behaving consistently within
the framework of focusing on customer issues and customer satisfaction
and trustworthy computing, which we have articulated. Now there are some
things I would have done differently, in 20-20 hindsight. I would have
increased the focus on not just security but deployment, because a lot
of the security problems are actually deployment problems. We have the
fix, but sometimes we can't get the tools in their hands to deploy those
fixes fast enough. Licensing -- I know I would have given more time, and
there are better ways to plan around the kinds of changes we made. We
are still going to have to get smart about the full ramifications.

> Do you expect any changes to be made between now and July 31 to
> Licensing 6.0? There is a lot of push-back on this.