Merge pull request #209 from jvolkening/master

Fixed bug in _toDsspKey()
bioperl · Jan 11, 2017 · 6046cae · 6046cae
2 parents 02f4447 + f63905b
commit 6046cae
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Bio/Structure/SecStr/DSSP/Res.pm b/Bio/Structure/SecStr/DSSP/Res.pm
@@ -1190,10 +1190,10 @@ sub _toDsspKey {
 
     if ( ! $chain_id) { # parse the lone argument
 	( $key_num, $chain_id, $ins_code ) 
-	    = $key_num =~ m/([0-9]+)
-                            ([a-zA-z]?)
-                            (?::([a-zA-Z]))?/xms
-              ? ( $1, $2, $3 )
+	    = $key_num =~ m/^(\-?[0-9]+) # PDB coords can be negative
+                            ([a-zA-Z]?)
+                            (?::([a-zA-Z\-]))?$/x # missing chains are '-'
+              ? ( $1, $3, $2 )
 	      : $self->throw("Could not derive PDB key $key_num");
      }