Ticket #2143 (closed cage: fixed)

Opened 3 years ago

Last modified 3 years ago

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

Changed 3 years ago by jkeenan

  • status changed from new to assigned

Changed 3 years ago by jkeenan

  • status changed from assigned to closed
  • resolution set to fixed

No one spoke in favor of retaining this, so out it goes.

Closing ticket. Thank you very much.

kid51

Note: See TracTickets for help on using tickets.