overload.pm: Add string-specific bitops

diff --git a/lib/overload.pm b/lib/overload.pm
index dc37380..73c8202 100644 (file)
--- 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',