This is 0.64

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

diff --git a/samples/synopsis.pl b/samples/synopsis.pl
old mode 100644 (file)
new mode 100755 (executable)
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