X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fautovivification.pm;h=71a566f92868f334bb99c399bf4339178e6590ec;hb=3201984d539ab173c11a001792be4294af17a08c;hp=3d5ab411f7c509773bc8d86da7e02197075ace33;hpb=b3ee8fb0443427961f58b2005727cba0ab05e809;p=perl%2Fmodules%2Fautovivification.git

diff --git a/lib/autovivification.pm b/lib/autovivification.pm
index 3d5ab41..71a566f 100644
--- a/lib/autovivification.pm
+++ b/lib/autovivification.pm
@@ -132,7 +132,7 @@ Throws an exception when an autovivification is avoided.
 
 Each call to C<unimport> adds the specified features to the ones already in use in the current lexical scope.
 
-When C<@opts> is empty, it defaults to C<qw/fetch exists delete/>.
+When C<@opts> is empty, it defaults to C<< qw<fetch exists delete> >>.
 
 =cut
 
@@ -148,7 +148,7 @@ my %bits = (
 sub unimport {
  shift;
  my $hint = _detag($^H{+(__PACKAGE__)}) || 0;
- @_ = qw/fetch exists delete/ unless @_;
+ @_ = qw<fetch exists delete> unless @_;
  $hint |= $bits{$_} for grep exists $bits{$_}, @_;
  $^H |= 0x00020000;
  $^H{+(__PACKAGE__)} = _tag($hint);