Switch to qw<>

[perl/modules/Variable-Magic.git] / samples / uvar.pl

diff --git a/samples/uvar.pl b/samples/uvar.pl
index 700692fd7f90f698645fc3012a3c07eab989514a..d1e52abdc5559950b82e27bbc2a1430ff1c3fd9a 100755 (executable)
--- a/samples/uvar.pl
+++ b/samples/uvar.pl
@@ -3,8 +3,8 @@
 use strict;
 use warnings;
 
-use lib qw{blib/arch blib/lib};
-use Variable::Magic qw/wizard cast dispell/;
+use lib qw<blib/arch blib/lib>;
+use Variable::Magic qw<wizard cast dispell>;
 
 my $wiz = wizard
  fetch  => sub { print STDERR "$_[0] FETCH KEY $_[2]\n" },