Fix the sample script

[perl/modules/subs-auto.git] / samples / subs.pl

diff --git a/samples/subs.pl b/samples/subs.pl
index 8d25208fc1290015c9858a85e682429a163e7273..0429e7a9334a745fbfceb5eba7f056ab66217ae0 100644 (file)
--- a/samples/subs.pl
+++ b/samples/subs.pl
@@ -3,10 +3,10 @@
 use strict;
 use warnings;
 
-use lib qw{blib/lib};
+use blib;
 
 my $x = 7;
-my @a = qw/ba na na/;
+my @a = qw<ba na na>;
 
 {
  use subs::auto;