--- fastq.pm.orig	2009-05-09 11:19:12.000000000 +0100
+++ fastq.pm	2009-05-09 11:51:18.000000000 +0100
@@ -117,7 +117,7 @@
     $seqdata->{$type} = $line;
   }
   $self->warn("Seq/Qual descriptions don't match; using sequence description\n")
-    unless $seqdata->{seqdesc} eq $seqdata->{qualdesc};
+    unless $seqdata->{qualdesc} eq '' || $seqdata->{seqdesc} eq $seqdata->{qualdesc};
   my ($id,$fulldesc) = $seqdata->{seqdesc} =~ /^\s*(\S+)\s*(.*)/
     or $self->throw("Can't parse fastq header");
   if ($id eq '') {$id=$fulldesc;}   # FIX incase no space between \@ and name