X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fsynopsis.pl;h=5b5cd7c76daa2b96433ca0fd29bb59bca816be4d;hb=ae89b589d2187cf0ed57bbb6132b9d4a8da29abb;hp=c2576be205d5629a9543fffaec0889cbe5747455;hpb=0842790276f868200cec87bdcf6fdbbd8b23dc5e;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/samples/synopsis.pl b/samples/synopsis.pl
old mode 100644
new mode 100755
index c2576be..5b5cd7c
--- a/samples/synopsis.pl
+++ b/samples/synopsis.pl
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Variable::Magic qw/wizard cast VMG_OP_INFO_NAME/;
+use Variable::Magic qw<wizard cast VMG_OP_INFO_NAME>;
 
 {
  my $wiz = wizard set  => sub { print "now set to ${$_[0]}!\n" },
@@ -20,7 +20,7 @@ use Variable::Magic qw/wizard cast VMG_OP_INFO_NAME/;
                   store    => sub { print "key $_[2] stored in $_[-1]\n" },
                   copy_key => 1,
                   op_info  => VMG_OP_INFO_NAME;
-     
+
  my %h = (_default => 0, apple => 2);
  cast %h, $wiz, '_default';
  print $h{banana}, "\n"; # "0", because the 'banana' key doesn't exist in %h