Changeset 18736 for trunk/pstamp/test/detect_query_create
- Timestamp:
- Jul 25, 2008, 11:24:38 AM (18 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/test/detect_query_create (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/test/detect_query_create
r18735 r18736 26 26 27 27 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; 28 pod2usage( -msg => "Required options: --input --output --query_id",28 pod2usage( -msg => "Required options: --input --output", 29 29 -exitval => 3) unless defined $input and defined $output; 30 30 … … 224 224 $line_num++; 225 225 chomp $line; 226 next if !$line; # skip blank lines 226 227 next if ($line =~ /^#/); # skip comment lines 227 next if !$line; # skip blank lines228 228 my @vals = split /$sep/, $line; 229 229 my $nvals = @vals; … … 244 244 chomp $line; 245 245 $line_num++; 246 next if !$line; # skip blank lines 246 247 next if ($line =~ /^#/); # skip comment lines 247 next if !$line; # skip blank lines248 248 249 249 my @vals = split /$sep/, $line;
Note:
See TracChangeset
for help on using the changeset viewer.
