when circular reqs are found, advise the user of the situation and ask whether or not proceed, default no

1 files changed, 6 insertions, 1 deletions

diff --git a/sboupgrade b/sboupgrade
index 544ae92..406ac4a 100755
--- a/sboupgrade
+++ b/sboupgrade
@@ -133,7 +133,12 @@ sub get_requires ($$) {
 	FIRST: for my $req (@$requires) {
 		my $req_req = get_from_info (LOCATION => get_sbo_location $req,
 			GET => 'REQUIRES');
-		return if $sbo ~~ @$req_req;
+		if ($sbo ~~ @$req_req) {
+			say "I am seeing circular requirements between $sbo and $req.";
+			say "Therefore, I am not going to handle requirements for $sbo.";
+			print 'Do you still wish to proceed? [n] ';
+			<STDIN> ~ /^[Yy\n]/ ? return : exit 0;
+		}
 	}
 	return $requires;
 }