diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2014-11-16 00:22:57 +0000 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2014-11-16 00:22:57 +0000 |
| commit | 1271e35c9455700798a21541d836dd0787238c53 (patch) | |
| tree | 07056f51c0fa8ca9e5ab02a353e088722cd8179f | |
| parent | 04b70ce895f026c08a9929581b5238d4942e8a83 (diff) | |
| download | reply-1271e35c9455700798a21541d836dd0787238c53.tar.gz reply-1271e35c9455700798a21541d836dd0787238c53.zip | |
Unshift onto @INC instead of pushing when using -I/-l/-b
This is what perl does for -I, and what prove does for -l and -b, so
let's be consistent.
| -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() }, |