add extra files at the end of ARGV, not the start
This commit is contained in:
parent
82b8af8cff
commit
a88700cf54
@ -1,7 +1,7 @@
|
||||
#! /usr/bin/perl
|
||||
|
||||
# ex:ts=8 sw=4:
|
||||
# $OpenBSD: dpb,v 1.22 2011/07/14 11:02:50 espie Exp $
|
||||
# $OpenBSD: dpb,v 1.23 2011/07/14 12:44:39 espie Exp $
|
||||
#
|
||||
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
|
||||
#
|
||||
@ -78,7 +78,7 @@ sub handle_options
|
||||
while (<$fh>) {
|
||||
chomp;
|
||||
next if m/^\#/;
|
||||
unshift @main::ARGV, $_;
|
||||
push @main::ARGV, $_;
|
||||
}
|
||||
},
|
||||
b => sub {
|
||||
|
Loading…
Reference in New Issue
Block a user