[med-svn] r7915 - trunk/packages/rostlab/libzerg-perl/trunk/debian/patches

[Laszlo Kajan]

Author: lkajan-guest
Date: 2011-09-23 19:36:10 +0000 (Fri, 23 Sep 2011)
New Revision: 7915

Modified:
   trunk/packages/rostlab/libzerg-perl/trunk/debian/patches/new_tokens
Log:
fixing bad test for $file being given in Zerg::Report::new

Modified: trunk/packages/rostlab/libzerg-perl/trunk/debian/patches/new_tokens
===================================================================
--- trunk/packages/rostlab/libzerg-perl/trunk/debian/patches/new_tokens	2011-09-23 19:33:53 UTC (rev 7914)
+++ trunk/packages/rostlab/libzerg-perl/trunk/debian/patches/new_tokens	2011-09-23 19:36:10 UTC (rev 7915)
@@ -454,7 +454,7 @@
 -    my $blast_report = ();  
 -   
 -    Zerg::zerg_open_file($file);
-+    if( $file ){ Zerg::zerg_open_file($file); }
++    if( defined($file) ){ Zerg::zerg_open_file($file); }
         
      Zerg::zerg_unignore_all();