Hello,
in src/tools/msvc/Solution.pm (in the current master) there is a
leftover from the past:
> confess "Bad format of version: $self->{strver}\n";
strver has been gone since 8f4fb4c6 in 2019, so I suggest an obvious
one-line fix in the patch attached:
diff --git a/src/tools/msvc/Solution.pm b/src/tools/msvc/Solution.pm
index a7b8f720b55..fcb43b0ca05 100644
--- a/src/tools/msvc/Solution.pm
+++ b/src/tools/msvc/Solution.pm
@@ -176,7 +176,7 @@ sub GenerateFiles
if ($package_version !~ /^(\d+)(?:\.(\d+))?/)
{
- confess "Bad format of version:
$self->{strver}\n";
+ confess "Bad format of version:
$package_version\n";
}
$majorver = sprintf("%d", $1);
$minorver = sprintf("%d", $2 ? $2 : 0);
I think this should be backported to REL_13_STABLE, but not to
REL_12_STABLE and earlier, where strver was still present.
--
Anton Voloshin,
Postgres Professional, The Russian Postgres Company
https://postgrespro.ru
diff --git a/src/tools/msvc/Solution.pm b/src/tools/msvc/Solution.pm
index a7b8f720b55..fcb43b0ca05 100644
--- a/src/tools/msvc/Solution.pm
+++ b/src/tools/msvc/Solution.pm
@@ -176,7 +176,7 @@ sub GenerateFiles
if ($package_version !~ /^(\d+)(?:\.(\d+))?/)
{
- confess "Bad format of version: $self->{strver}\n";
+ confess "Bad format of version: $package_version\n";
}
$majorver = sprintf("%d", $1);
$minorver = sprintf("%d", $2 ? $2 : 0);