Lines 256-268
Link Here
|
256 |
my $DQVAL = qr{"((?:[^\\"]|\\.)*)"}s; # doublequoted value |
256 |
my $DQVAL = qr{"((?:[^\\"]|\\.)*)"}s; # doublequoted value |
257 |
|
257 |
|
258 |
my ($fname) = @_; |
258 |
my ($fname) = @_; |
|
|
259 |
|
260 |
# If the file is empty, return quietly |
261 |
return unless (-s $fname); |
262 |
|
259 |
my %env; |
263 |
my %env; |
260 |
if(open my $file, '<', $fname) { |
264 |
if(open my $file, '<', $fname) { |
261 |
{ local $/; $_ = <$file> } |
265 |
{ local $/; $_ = <$file> } |
262 |
eval { |
266 |
eval { |
263 |
for(;;) { |
267 |
for(;;) { |
264 |
/\G$BLANK/gc; |
268 |
/\G$BLANK/gc; |
265 |
last if pos == length; |
269 |
last if (pos || -1) == length; |
266 |
/\G$IDENT/gc or die; |
270 |
/\G$IDENT/gc or die; |
267 |
my $name = $1; |
271 |
my $name = $1; |
268 |
/\G$BLANK/gc; |
272 |
/\G$BLANK/gc; |