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

[Laszlo Kajan]

Author: lkajan-guest
Date: 2011-09-23 19:33:53 +0000 (Fri, 23 Sep 2011)
New Revision: 7914

Modified:
   trunk/packages/rostlab/libzerg-perl/trunk/debian/patches/new_tokens
Log:
Zerg::Report does not attempt to open an empty file name any more

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:32:22 UTC (rev 7913)
+++ trunk/packages/rostlab/libzerg-perl/trunk/debian/patches/new_tokens	2011-09-23 19:33:53 UTC (rev 7914)
@@ -1,7 +1,7 @@
 Index: libzerg-perl-1.0.4/Zerg/Zerg.pm
 ===================================================================
---- libzerg-perl-1.0.4.orig/Zerg/Zerg.pm	2011-09-22 18:39:24.701700397 +0200
-+++ libzerg-perl-1.0.4/Zerg/Zerg.pm	2011-09-22 19:27:40.645700935 +0200
+--- libzerg-perl-1.0.4.orig/Zerg/Zerg.pm	2006-03-07 18:00:37.000000000 +0100
++++ libzerg-perl-1.0.4/Zerg/Zerg.pm	2011-09-22 21:44:27.000000000 +0200
 @@ -1,5 +1,5 @@
 -# Copyright (C) 2002  Apuã Paquola - Instituto de Química -
 -#                     Universidade de São Paulo - Brasil
@@ -268,8 +268,8 @@
  
 Index: libzerg-perl-1.0.4/Zerg/Zerg.xs
 ===================================================================
---- libzerg-perl-1.0.4.orig/Zerg/Zerg.xs	2011-09-22 18:39:28.037700573 +0200
-+++ libzerg-perl-1.0.4/Zerg/Zerg.xs	2011-09-22 19:29:10.981700675 +0200
+--- libzerg-perl-1.0.4.orig/Zerg/Zerg.xs	2005-01-10 23:57:35.000000000 +0100
++++ libzerg-perl-1.0.4/Zerg/Zerg.xs	2011-09-22 21:44:27.000000000 +0200
 @@ -1,6 +1,6 @@
  /*
 -  Copyright (C) 2002  Apuã Paquola - Instituto de Química -
@@ -437,8 +437,8 @@
  #ifdef UNMATCHED
 Index: libzerg-perl-1.0.4/Zerg/Report/Report.pm
 ===================================================================
---- libzerg-perl-1.0.4.orig/Zerg/Report/Report.pm	2011-09-22 20:24:20.213700819 +0200
-+++ libzerg-perl-1.0.4/Zerg/Report/Report.pm	2011-09-22 21:07:59.350075600 +0200
+--- libzerg-perl-1.0.4.orig/Zerg/Report/Report.pm	2006-03-07 18:19:10.000000000 +0100
++++ libzerg-perl-1.0.4/Zerg/Report/Report.pm	2011-09-23 21:25:38.141700224 +0200
 @@ -17,6 +17,7 @@
  #
  package Zerg::Report;
@@ -453,7 +453,8 @@
  
 -    my $blast_report = ();  
 -   
-     Zerg::zerg_open_file($file);
+-    Zerg::zerg_open_file($file);
++    if( $file ){ Zerg::zerg_open_file($file); }
         
      Zerg::zerg_unignore_all();  
  
@@ -678,10 +679,13 @@
  =head1 DESCRIPTION
  
 -  Zerg::Report uses Zerg to parse a file containing multiple BLAST
-+  Zerg::Report uses Zerg to parse a file - or STDIN if file is not given - containing multiple BLAST
-   reports and, for each report, stores the obtained fields in a data
-   structure made of arrays and hashes. Please consult the Zerg man
-   page to see which fields are extracted.
+-  reports and, for each report, stores the obtained fields in a data
+-  structure made of arrays and hashes. Please consult the Zerg man
+-  page to see which fields are extracted.
++  Zerg::Report uses Zerg to parse a file - or STDIN if file is not given -
++  containing one or multiple BLAST reports and, for each report, stores
++  the obtained fields in a data structure made of arrays and hashes.
++  Please consult the Zerg man page to see which fields are extracted.
  
    The method getReport() reads a BLAST report from the input file and
    returns a reference to a data structure like the one in the example