Importing Variable-Magic-0.05.tar.gz

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

diff --git a/samples/magic.pl b/samples/magic.pl
index 1439e2d37bb4e0fac9a06d6cd56e457d86d2eb1e..74117444f867baca3320d27cf69113dc1439939e 100755 (executable)
--- a/samples/magic.pl
+++ b/samples/magic.pl
@@ -14,7 +14,7 @@ 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, qw/a b c/;