Switch to qw<>

[perl/modules/autovivification.git] / lib / autovivification.pm

diff --git a/lib/autovivification.pm b/lib/autovivification.pm
index 3d5ab411f7c509773bc8d86da7e02197075ace33..71a566f92868f334bb99c399bf4339178e6590ec 100644 (file)
--- 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);