Work around the hints propagation in requires on perl <= 5.10.0

[perl/modules/Lexical-Types.git] / lib / Lexical / Types.pm

diff --git a/lib/Lexical/Types.pm b/lib/Lexical/Types.pm
index e2cc2003e704838e2b5a700f3d0411dfbdbbbf1a..14f269957ad364a3ee8537df2da517e213e57fda 100644 (file)
--- a/lib/Lexical/Types.pm
+++ b/lib/Lexical/Types.pm
@@ -155,7 +155,7 @@ sub import {
    croak "Invalid $r reference for 'as'";
   }
  } else {
-  $hint = _tag(0);
+  $hint = _tag(sub { @_ });
  }
 
  $^H |= 0x020000;