overload.pm: Add string-specific bitops

Perl · Feb 1, 2015 · cb9052a · cb9052a
1 parent b6e8d7f
commit cb9052a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/overload.pm b/lib/overload.pm
@@ -8,8 +8,8 @@ our $VERSION = '1.24';
     num_comparison      => "< <= >  >= == !=",
     '3way_comparison'   => "<=> cmp",
     str_comparison      => "lt le gt ge eq ne",
-    binary              => '& &= | |= ^ ^=',
-    unary               => "neg ! ~",
+    binary              => '& &= | |= ^ ^= &. &.= |. |.= ^. ^.=',
+    unary               => "neg ! ~ ~.",
     mutators            => '++ --',
     func                => "atan2 cos sin exp abs log sqrt int",
     conversion          => 'bool "" 0+ qr',
@@ -361,8 +361,8 @@ hash C<%overload::ops>:
  num_comparison	  => '< <= > >= == !=',
  '3way_comparison'=> '<=> cmp',
  str_comparison	  => 'lt le gt ge eq ne',
- binary		  => '& &= | |= ^ ^=',
- unary		  => 'neg ! ~',
+ binary		  => '& &= | |= ^ ^= &. &.= |. |.= ^. ^.=',
+ unary		  => 'neg ! ~ ~.',
  mutators	  => '++ --',
  func		  => 'atan2 cos sin exp abs log sqrt int',
  conversion	  => 'bool "" 0+ qr',