This is 0.64

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

diff --git a/samples/uvar.pl b/samples/uvar.pl
index 3a968ec93c298094126f7936d14249c0f10dbe87..d1e52abdc5559950b82e27bbc2a1430ff1c3fd9a 100755 (executable)
--- 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 lib qw<blib/arch blib/lib>;
+use Variable::Magic qw<wizard cast dispell>;
 
 my $wiz = wizard
  fetch  => sub { print STDERR "$_[0] FETCH KEY $_[2]\n" },