X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/e4b24259cc55b2b8a840b194b7df3c4ed99ba579..67aec5060149123dbc8590cfb898432c4bacdc63:/mr?ds=inline diff --git a/mr b/mr index 5025e6e..0936341 100755 --- a/mr +++ b/mr @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl =head1 NAME @@ -1325,11 +1325,12 @@ sub loadconfig { while (@lines) { $_=$nextline->(); + next if /^\s*\#/ || /^\s*$/; + if (! $trusted && /[[:cntrl:]]/) { $trusterror->("illegal control character"); } - next if /^\s*\#/ || /^\s*$/; if (/^\[([^\]]*)\]\s*$/) { $section=$1;