X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fuvar.pl;h=700692fd7f90f698645fc3012a3c07eab989514a;hb=cf48e6bb084037da1980bde10e21dca795fd84d0;hp=3a968ec93c298094126f7936d14249c0f10dbe87;hpb=763ba8093427f3668368fa885741618ac6289d41;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/samples/uvar.pl b/samples/uvar.pl
index 3a968ec..700692f 100755
--- a/samples/uvar.pl
+++ b/samples/uvar.pl
@@ -1,10 +1,10 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 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/;
 
 my $wiz = wizard
  fetch  => sub { print STDERR "$_[0] FETCH KEY $_[2]\n" },