Browse files

Remove // because CPAN testers still test Perl predating that feature.

  • Loading branch information...
1 parent 5a5072e commit c65f2650b26af8f09b9c40b0c8dc1a117f63e597 @rcaputo committed Mar 6, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Reflex/Event.pm
View
4 lib/Reflex/Event.pm
@@ -74,8 +74,8 @@ sub _clone {
my @override_keys = keys %override_args;
@clone_args{ map { s/^-/_/; $_ } @override_keys } = values %override_args;
- my $new_type = delete($clone_args{_type}) // ref($self);
- my $emitters = delete($clone_args{_emitters}) // confess "no -emitters";
+ my $new_type = delete($clone_args{_type}) || ref($self);
+ my $emitters = delete($clone_args{_emitters}) || confess "no -emitters";
my $new_event = $new_type->new(%clone_args, _emitters => [ @$emitters ]);

0 comments on commit c65f265

Please sign in to comment.