From 1271e35c9455700798a21541d836dd0787238c53 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= <ilmari@ilmari.org>
Date: Sun, 16 Nov 2014 00:22:57 +0000
Subject: 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.
---
 lib/Reply/App.pm | 6 +++---
 1 file 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() },
-- 
cgit v1.2.3