X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fmagic.pl;h=3c14d49cff34d34bfcaaf3993aa3ba767e329afe;hb=6a204757f3b9c5d10bc57e21cbb65c0e29688066;hp=b1765992267acbcb84e1f746c4bbf4e1cee73a17;hpb=77a84f75f33e3ee44e61182dec76699e23025375;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/samples/magic.pl b/samples/magic.pl
index b176599..3c14d49 100755
--- a/samples/magic.pl
+++ b/samples/magic.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
 use warnings;
@@ -6,24 +6,24 @@ use warnings;
 use lib qw{blib/arch blib/lib};
 use Variable::Magic qw/wizard getsig cast dispell/;
 
-sub foo { print STDERR "got $_[0]!\n" }
-my $bar = sub { ++$_[0]; print STDERR "now set to $_[0]!\n"; };
+sub foo { print STDERR "got ${$_[0]}!\n" }
+my $bar = sub { ++${$_[0]}; print STDERR "now set to ${$_[0]}!\n"; };
 
 my $a = 1;
 my $sig;
 {
  my $wiz = wizard get  => \&foo,
                   set  => $bar,
-                  free => sub {  print STDERR "deleted!\n"; };
+                  free => sub { print STDERR "deleted!\n"; };
  $sig = getsig $wiz;
  print "my sig is $sig\n";
- cast $a, $wiz;
+ cast $a, $wiz, qw/a b c/;
  ++$a;              # "got 1!", "now set to 3!"
  dispell $a, $wiz;
  cast $a, $wiz;
  my $b = 123;
  cast $b, $wiz;
-}                   # "got 123!", "deleted!"
+}                   # "deleted!"
 my $b = $a;         # "got 3!"
 $a = 3;             # "now set to 4!"
 $b = 3;             # (nothing)