aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xsboupgrade7
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;
}