From 9eb88f27d9f46e8c46080fb665dfa9dc931f0179 Mon Sep 17 00:00:00 2001
From: wtup <luka.perusko@cosylab.com>
Date: Tue, 26 Apr 2022 11:26:46 +0200
Subject: [PATCH] Fixed direction of SHIFT to match implementation

---
 modules/database/src/std/rec/seqRecord.dbd.pod | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/database/src/std/rec/seqRecord.dbd.pod b/modules/database/src/std/rec/seqRecord.dbd.pod
index dd025bfbd..31b24bd59 100644
--- a/modules/database/src/std/rec/seqRecord.dbd.pod
+++ b/modules/database/src/std/rec/seqRecord.dbd.pod
@@ -114,9 +114,9 @@ which links will be processed by the seq record,
 in combination with the C<SHFT> field:
 
   if (SHFT >= 0)
-    SELN = SELN << -SHFT
-  else
     SELN = SELN >> SHFT
+  else
+    SELN = SELN << -SHFT
 
 I<(By default, the SHFT field is initialized to -1)>