From c441b861ad778a9b73b6a4f466e8d8ad4780bad1 Mon Sep 17 00:00:00 2001 From: Gregory Jefferis Date: Thu, 4 Jun 2020 22:56:58 +0100 Subject: [PATCH] Teach munger about -2 option See https://www.nitrc.org/forum/forum.php?thread_id=11354&forum_id=857 --- core/contrib/munger/munger.in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/contrib/munger/munger.in b/core/contrib/munger/munger.in index e77da944..79eda2b0 100755 --- a/core/contrib/munger/munger.in +++ b/core/contrib/munger/munger.in @@ -1062,7 +1062,7 @@ EOF sub init { # copied from: http://www.cs.mcgill.ca/~abatko/computers/programming/perl/howto/getopts use Getopt::Std; # to handle command line options - my $opt_string = 'hvtawuic:r:l:s:b:f:FE:X:M:C:G:R:T:J:I:zp:d:k:g0A:W:e:o:HPLm:x:1:'; + my $opt_string = 'hvtawuic:r:l:s:b:f:FE:X:M:C:G:R:T:J:I:zp:d:k:g0A:W:e:o:HPLm:x:1:2:'; getopts( "$opt_string", \%opt ) or usage(); usage() if $opt{h} or $#ARGV==-1; return;