Ticket #2143 (closed cage: fixed)
examples/benchmarks/overload.pl: Can we remove this file?
Reported by: | jkeenan | Owned by: | jkeenan |
---|---|---|---|
Priority: | normal | Milestone: | |
Component: | testing | Version: | 3.5.0 |
Severity: | low | Keywords: | |
Cc: | dukeleto cotto | Language: | |
Patch status: | Platform: |
Description
This file appears to have nothing to do with Parrot.
$ cat examples/benchmarks/overload.pl #! perl package Foo; use strict; use warnings; use overload '*' => \&my_mul, 'fallback' => 1; sub new { my ( $class, $val ) = @_; return bless \$val, $class; } sub my_mul { return ${ $_[0] } * ${ $_[1] }; } 1; package main; my $a = Foo->new(7); my $b = Foo->new(6); my $r; for my $i ( 1 .. 50_000 ) { $r = $a * $b } print "$r\n";
It does not appear to be invoked as part of any testing target.
$> ack -l 'overload.pl' * MANIFEST
The only thing it appears to do is to reproduce the content of the home page of dukeleto's web site.
Can we remove it? I will do so in 7 days unless there is an objection.
Thank you very much.
kid51
Change History
Note: See
TracTickets for help on using
tickets.