summaryrefslogtreecommitdiff
path: root/Porting
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2023-03-06 19:15:52 +0100
committerYves Orton <demerphq@gmail.com>2023-03-07 15:10:04 +0800
commit09f0d4da1c52d9906c843eb785585e5c72c3e677 (patch)
tree4573e18cce44b538bf12a43dd41e072062dfaeb5 /Porting
parent7a993362d98aecd43ecb9827773e5bd30947a5a2 (diff)
downloadperl-09f0d4da1c52d9906c843eb785585e5c72c3e677.tar.gz
Porting/sync-with-cpan - fixup version check warning
Diffstat (limited to 'Porting')
-rwxr-xr-xPorting/sync-with-cpan12
1 files changed, 7 insertions, 5 deletions
diff --git a/Porting/sync-with-cpan b/Porting/sync-with-cpan
index 3bd811f2e7..ad787e03c2 100755
--- a/Porting/sync-with-cpan
+++ b/Porting/sync-with-cpan
@@ -474,11 +474,13 @@ else {
}
$new_file = (split '/', $new_path) [-1];
- $re_update = "Re-";
- print "The latest version of $module is $new_version, but blead already has it.\n";
- print "Continuing may update MANIFEST or other metadata so it may make sense to continue anyway.\n";
- print "Are you sure you want to continue?\n";
- pause_for_input();
+ if ($old_version eq $new_version) {
+ $re_update = "Re-";
+ print "The latest version of $module is $new_version, but blead already has it.\n";
+ print "Continuing may update MANIFEST or other metadata so it may make sense to continue anyway.\n";
+ print "Are you sure you want to continue?\n";
+ pause_for_input();
+ }
my $url = "https://cpan.metacpan.org/authors/id/$new_path";
say "Fetching $url";