Switch to qw<>

[perl/modules/Scope-Upper.git] / samples / tag.pl

diff --git a/samples/tag.pl b/samples/tag.pl
index c414c0790b843e1244f62cc882a810504a527d58..0e39930d2f7c03eda3ba55ad5e4bbb1d47998039 100644 (file)
--- a/samples/tag.pl
+++ b/samples/tag.pl
@@ -7,7 +7,7 @@ use blib;
 
 package Scope;
 
-use Scope::Upper qw/reap localize localize_elem localize_delete :words/;
+use Scope::Upper qw<reap localize localize_elem localize_delete :words>;
 
 sub new {
  my ($class, $name) = @_;