Lines Matching refs:record

1530     my $record = 0;
1536         if (( $record ) && ( $line =~ /^\s*\[/ )) { $record = 0; }
1538 …*\[\Q$lastsection\E\\\]\s*$/ ) && ( ! ( $line =~ /\Q$notlastsection\E\\\]\s*$/ ))) { $record = 1; }
1540         if ( $record ) { push(@lastsection, $line); }
1581     my $record = 0;
1586         if ( $line =~ /^\s*\[\Q$lastsectionname\E\]\s*$/ ) { $record = 1; }
1588         if (( $line =~ /^\s*\"\Q$lastfilename\E\"\=/ ) && ( $record ))
1592             $record = 0;
1801     my $record = 0;
1807         if (( $record ) && ( $line =~ /^\s*\[/ ))
1809             $record = 0;
1813         if ( $line =~ /^\s*\[\Q$sectionname\E\]\s*$/ ) { $record = 1; }
1820         if ( $record ) { push(@section, $line); }