diff options
author | Yves Orton <demerphq@gmail.com> | 2023-03-06 19:15:52 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-03-07 15:10:04 +0800 |
commit | 09f0d4da1c52d9906c843eb785585e5c72c3e677 (patch) | |
tree | 4573e18cce44b538bf12a43dd41e072062dfaeb5 | |
parent | 7a993362d98aecd43ecb9827773e5bd30947a5a2 (diff) | |
download | perl-09f0d4da1c52d9906c843eb785585e5c72c3e677.tar.gz |
Porting/sync-with-cpan - fixup version check warning
-rwxr-xr-x | Porting/sync-with-cpan | 12 |
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"; |