mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-18 08:02:48 +00:00
16 lines
431 B
Perl
16 lines
431 B
Perl
--- Switch.pm.orig 2014-03-18 12:24:00 UTC
|
|
+++ Switch.pm
|
|
@@ -25,9 +25,11 @@ my ($Perl5, $Perl6) = (0,0);
|
|
|
|
sub import
|
|
{
|
|
+ my ($class) = @_;
|
|
+ my $self = bless {}, $class;
|
|
$fallthrough = grep /\bfallthrough\b/, @_;
|
|
$offset = (caller)[2]+1;
|
|
- filter_add({}) unless @_>1 && $_[1] eq 'noimport';
|
|
+ filter_add($self) unless @_>1 && $_[1] eq 'noimport';
|
|
my $pkg = caller;
|
|
no strict 'refs';
|
|
for ( qw( on_defined on_exists ) )
|