Changeset 5754 for inc

Show
Ignore:
Timestamp:
07/22/05 18:12:15 (3 years ago)
Author:
gaal
svk:copy_cache_prev:
7758
Message:

be more careful normalizing true/false values

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • inc/PugsBuild/MiniYAML.pm

    r5738 r5754  
    2424        /^(\S+?) \s* : \s* (.*?) \s* $/x && do { 
    2525            my($key, $val) = ($1, $2); 
    26             $val = 1 if $val =~ /y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON/; 
    27             $val = 0 if $val =~ /n|N|no|No|NO|false|False|FALSE|off|Off|OFF/; 
     26            $val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/; 
     27            $val = 0 if $val =~ /^(n|N|no|No|NO|false|False|FALSE|off|Off|OFF)/; 
    2828            $val = undef if $val eq "~"; 
    2929            die "sorry, only scalars are supported: $key: $val\n" if