From da409962951896ab222381820425f1c7331ea608 Mon Sep 17 00:00:00 2001
From: Garrett Graham <gtg240@gmail.com>
Date: Tue, 26 Jan 2021 22:54:03 -0500
Subject: [PATCH] update Graph interface for module compat
 (Graph::Undirected->new to Graph->new(undirected=>1))

---
 bpRNA.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bpRNA.pl b/bpRNA.pl
index d6c0c77..aff8aef 100644
--- a/bpRNA.pl
+++ b/bpRNA.pl
@@ -339,7 +339,7 @@ sub buildStructureMap {
 	}
     }
     if($regions{"I"}) {
-	my $iG = Graph::Undirected->new;
+	my $iG = Graph->new(undirected=>1);
 	for(my $i=0;$i<@{$regions{"I"}};$i++) {
 	    my($iStart,$iStop) = @{$regions{"I"}[$i]};
 	    for(my $j=$i+1;$j<@{$regions{"I"}};$j++) {
@@ -979,7 +979,7 @@ sub separateSegments {
     my($segments) = @_;
     my $warnings = "";
     my %knot;
-    my $G = Graph::Undirected->new;    
+    my $G = Graph->new(undirected=>1);    
     if(@{$segments} > 1) {
 	for(my $i=0;$i<@{$segments}-1;$i++) {
 	    my @segment1 = @{$segments->[$i]};