[med-svn] r22783 - in trunk/packages/rostlab/profphd/trunk/debian: . patches

[Tatiana Malygina]

Author: latticetower-guest
Date: 2016-09-11 02:05:33 +0000 (Sun, 11 Sep 2016)
New Revision: 22783

Modified:
   trunk/packages/rostlab/profphd/trunk/debian/changelog
   trunk/packages/rostlab/profphd/trunk/debian/patches/3_fix_indexing.patch
Log:
cleaned up debian/patches/3_fix_indexing.patch

Modified: trunk/packages/rostlab/profphd/trunk/debian/changelog
===================================================================
--- trunk/packages/rostlab/profphd/trunk/debian/changelog	2016-09-11 01:53:56 UTC (rev 22782)
+++ trunk/packages/rostlab/profphd/trunk/debian/changelog	2016-09-11 02:05:33 UTC (rev 22783)
@@ -11,6 +11,7 @@
     command 'perl -c <name>.pm')
   * update comments in debian/tests/profphd-install-test
   * add header to debian/patches/5_fix_regex_warning.patch
+  * cleaned up debian/patches/3_fix_indexing.patch
 
  -- Tatiana Malygina <merlettaia at gmail.com>  Fri, 08 Jul 2016 22:46:36 +0300
 

Modified: trunk/packages/rostlab/profphd/trunk/debian/patches/3_fix_indexing.patch
===================================================================
--- trunk/packages/rostlab/profphd/trunk/debian/patches/3_fix_indexing.patch	2016-09-11 01:53:56 UTC (rev 22782)
+++ trunk/packages/rostlab/profphd/trunk/debian/patches/3_fix_indexing.patch	2016-09-11 02:05:33 UTC (rev 22783)
@@ -1,7 +1,7 @@
 Author: Tatiana Malygina <merlettaia at gmail.com>
 Description: fix error "Modification of non-creatable array value attempted, 
  subscript -1 at /usr/share/profphd/prof/scr/lib/lib-prof.pl line 7739"
-Last-Update: 2016-08-29
+Last-Update: 2016-09-11
 
 --- profphd-1.0.42.orig/src/prof/scr/lib/lib-prof.pl
 +++ profphd-1.0.42/src/prof/scr/lib/lib-prof.pl
@@ -14,15 +14,6 @@
      foreach $itres (1..$rdb{"NROWS"}){
  	next if ($prof_skip{$itres} || ! defined $rdb{$itres,"PHEL"});
  	if    ($rdb{$itres,"PHEL"} ne "H") {
-@@ -7736,7 +7736,7 @@
- 	    ++$tmplen[$cth];}
-     }
- 				# set last
--    $tmpend[$cth]=$tmplen[$cth] if (! defined $tmpend[$cth]);
-+    $tmpend[$cth]=$tmplen[$cth] if (! defined $tmpend[$cth] );
- 				# --------------------------------------------------
- 				# find short ones
-     foreach $it (1..$#tmpbeg){
 @@ -7832,7 +7832,7 @@
  
  				# --------------------------------------------------
@@ -32,14 +23,3 @@
      foreach $itres (1..$rdb{"NROWS"}){
  	next if ($prof_skip{$itres} || ! defined $rdb{$itres,"PHEL"});
  	if    ($rdb{$itres,"PHEL"} ne "E") {
-@@ -7847,8 +7847,8 @@
- 	else {
- 	    ++$tmplen[$cte];}
-     }
--				# set last
--    $tmpend[$cte]=$tmplen[$cte] if (! defined $tmpend[$cte]);
-+		# set last
-+    $tmpend[$cte]=$tmplen[$cte] if (! defined $tmpend[$cte] );
- 				# --------------------------------------------------
- 				# find short ones
-     foreach $it (1..$#tmpbeg){