X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fmagic.pl;h=5ce53ae49656ea1d8eee5976f99fd71e1dfeebc5;hb=8edd65482a48cda016b4677014dcb80b2b923cb1;hp=3c14d49cff34d34bfcaaf3993aa3ba767e329afe;hpb=6db3edecb6ba3be691816c4c16f623227159a832;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/samples/magic.pl b/samples/magic.pl
index 3c14d49..5ce53ae 100755
--- a/samples/magic.pl
+++ b/samples/magic.pl
@@ -4,19 +4,16 @@ use strict;
 use warnings;
 
 use lib qw{blib/arch blib/lib};
-use Variable::Magic qw/wizard getsig cast dispell/;
+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"; };
 
 my $a = 1;
-my $sig;
 {
  my $wiz = wizard get  => \&foo,
                   set  => $bar,
                   free => sub { print STDERR "deleted!\n"; };
- $sig = getsig $wiz;
- print "my sig is $sig\n";
  cast $a, $wiz, qw/a b c/;
  ++$a;              # "got 1!", "now set to 3!"
  dispell $a, $wiz;
@@ -27,5 +24,3 @@ my $sig;
 my $b = $a;         # "got 3!"
 $a = 3;             # "now set to 4!"
 $b = 3;             # (nothing)
-dispell $a, $sig;
-$a = 4;             # (nothing)