X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fmagic.pl;h=3fc8a8f48c621fee98bc6ce523a31b7c3e51f3d7;hb=3bc98bdbdb230943e7fb3135e325f10013acac2d;hp=5ce53ae49656ea1d8eee5976f99fd71e1dfeebc5;hpb=159e8ad7c747edb4a25db2f2673bbe143531f347;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/samples/magic.pl b/samples/magic.pl
index 5ce53ae..3fc8a8f 100755
--- a/samples/magic.pl
+++ b/samples/magic.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>;
 
 sub foo { print STDERR "got ${$_[0]}!\n" }
 my $bar = sub { ++${$_[0]}; print STDERR "now set to ${$_[0]}!\n"; };
@@ -14,7 +14,7 @@ my $a = 1;
  my $wiz = wizard get  => \&foo,
                   set  => $bar,
                   free => sub { print STDERR "deleted!\n"; };
- cast $a, $wiz, qw/a b c/;
+ cast $a, $wiz, qw<a b c>;
  ++$a;              # "got 1!", "now set to 3!"
  dispell $a, $wiz;
  cast $a, $wiz;