diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-11-16 00:20:15 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-11-16 00:20:15 -0500 |
commit | c6528c0a4d47f393ee8b03f66dae55dbd0fbb9bb (patch) | |
tree | 07056f51c0fa8ca9e5ab02a353e088722cd8179f | |
parent | 04b70ce895f026c08a9929581b5238d4942e8a83 (diff) | |
parent | 1271e35c9455700798a21541d836dd0787238c53 (diff) | |
download | reply-c6528c0a4d47f393ee8b03f66dae55dbd0fbb9bb.tar.gz reply-c6528c0a4d47f393ee8b03f66dae55dbd0fbb9bb.zip |
Merge pull request #40 from ilmari/unshift-lib
Unshift onto @INC instead of pushing when using -I/-l/-b
-rw-r--r-- | lib/Reply/App.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Reply/App.pm b/lib/Reply/App.pm index 6fe66de..baeb0e4 100644 --- a/lib/Reply/App.pm +++ b/lib/Reply/App.pm @@ -46,9 +46,9 @@ sub run { my $parsed = GetOptionsFromArray( \@argv, 'cfg:s' => \$cfgfile, - 'l|lib' => sub { push @INC, 'lib' }, - 'b|blib' => sub { push @INC, 'blib/lib', 'blib/arch' }, - 'I:s@' => sub { push @INC, $_[1] }, + 'l|lib' => sub { unshift @INC, 'lib' }, + 'b|blib' => sub { unshift @INC, 'blib/lib', 'blib/arch' }, + 'I:s@' => sub { unshift @INC, $_[1] }, 'M:s@' => \@modules, 'e:s@' => \@script_lines, 'version' => sub { $exitcode = 0; version() }, |