Changeset 640 in genapp


Ignore:
Timestamp:
Feb 17, 2016, 8:56:28 AM (6 years ago)
Author:
ehb
Message:

further minor fix to JSON error reporting

File:
1 edited

Legend:

Unmodified
Added
Removed
  • etc/perl/genapp_util.pl

    r639 r640  
    693693            next if $ol[ $i ] =~ /^\s*#/;
    694694            $cpos -= length( $ol[ $i ] );
    695             last if $cpos <= 0;
     695            last if $cpos < 0;
    696696        }
    697697
Note: See TracChangeset for help on using the changeset viewer.