config.gc: calculate my_uname dynamically

StrawberryPerl · Mar 11, 2023 · 0062273 · 0062273
1 parent d8f0dc6
commit 0062273
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/lib/Perl/Dist/Strawberry/Step.pm b/lib/Perl/Dist/Strawberry/Step.pm
@@ -682,6 +682,12 @@ sub _get_default_config_hash {
         vendorscriptexp => '~INST_TOP~\bin',
     };
 
+    use POSIX qw(strftime);
+    my $time        = strftime "%a %b %e %H:%M:%S %Y", gmtime();
+    my $bits        = $self->global->{bits};
+    my $app_version = $self->global->{app_version};
+    $h->{my_uname}  = "Win32 strawberry-perl $app_version # $now_string x${bits}";
+
     #  fix up quoting of values - saves a heap of editing
     foreach my $val (values %$h) {
         next if $val =~ /^'/;  # assumes symmetry, i.e. opening and closing

diff --git a/share/64bit-5.36.0.1.pp b/share/64bit-5.36.0.1.pp
@@ -124,7 +124,7 @@
                 i_dbm                 => 'define',
                 i_gdbm                => 'define',
                 i_ndbm                => 'define',
-                myuname               => 'Win32 strawberry-perl 5.36.0.1 #1 Sat 04 Mar 2023 x64 tempvaluesonly',
+                #myuname               => 'Win32 strawberry-perl 5.36.0.1 #1 Sat 04 Mar 2023 x64 tempvaluesonly',
                 osvers                => '10',
             },
         },