This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
overload.pm: add a missing 'exists'
[perl5.git] / lib / overload.pm
index 758b67d..ba56314 100644 (file)
@@ -1,6 +1,6 @@
 package overload;
 
 package overload;
 
-our $VERSION = '1.27';
+our $VERSION = '1.28';
 
 %ops = (
     with_assign         => "+ - * / % ** << >> x .",
 
 %ops = (
     with_assign         => "+ - * / % ** << >> x .",
@@ -63,7 +63,7 @@ sub unimport {
   *{$package . "::(("} = \&nil;
   for (@_) {
       warnings::warnif("overload arg '$_' is invalid")
   *{$package . "::(("} = \&nil;
   for (@_) {
       warnings::warnif("overload arg '$_' is invalid")
-        unless $ops_seen{$_};
+        unless exists $ops_seen{$_};
       delete $ {$package . "::"}{$_ eq 'fallback' ? '()' : "(" .$_};
   }
 }
       delete $ {$package . "::"}{$_ eq 'fallback' ? '()' : "(" .$_};
   }
 }