Index: trunk/pstamp/test/detect_query_create
===================================================================
--- trunk/pstamp/test/detect_query_create	(revision 18734)
+++ trunk/pstamp/test/detect_query_create	(revision 18735)
@@ -26,5 +26,5 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --input --output",
+pod2usage( -msg => "Required options: --input --output --query_id",
            -exitval => 3) unless defined $input and defined $output;
 
@@ -223,6 +223,7 @@
         while (my $line = <$in>) {
             $line_num++;
+            chomp $line;
             next if ($line =~ /^#/);    # skip comment lines
-            chomp $line;
+            next if !$line;             # skip blank lines
             my @vals = split /$sep/, $line;
             my $nvals = @vals;
@@ -241,7 +242,8 @@
     my $ncols = @$colData;
     while (my $line = <$in>) {
+        chomp $line;
         $line_num++;
         next if ($line =~ /^#/);    # skip comment lines
-        chomp $line;
+        next if !$line;             # skip blank lines
 
         my @vals = split /$sep/, $line;