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

diff --git a/samples/magic.pl b/samples/magic.pl
index 1439e2d..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;
@@ -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/;