fixed #1026927 3.6-1
thanks
> --- /tmp/AMD.pm 2023-01-14 09:09:28.324414456 -0700
> +++ /usr/share/perl5/NeedRestart/uCode/AMD.pm 2023-01-14 09:11:39.210705528 -0700
> @@ -173,13 +173,13 @@
> _scan_ucodes();
> }
>
> - my %vars = ( CURRENT => sprintf( "0x%08x", $ucode ), );
> + my %vars = ( CURRENT => sprintf( "0x%08x", $ucode ), AVAIL => "unavailable");
>
> # check for microcode updates
> if ( exists( $_ucodes->{cpuid}->{$cpuid} ) ) {
> my $prid = $_ucodes->{cpuid}->{$cpuid};
> if ( exists( $_ucodes->{prid}->{$prid} ) ) {
> - $vars{AVAIL} = sprintf( "0x%08x", $_ucodes->{prid}->{$prid} ),
> + $vars{AVAIL} = sprintf( "0x%08x", $_ucodes->{prid}->{$prid} );
>
> print STDERR "$LOGPREF #$info->{processor} found ucode $vars{AVAIL}\n" if ($debug);
> if ( $_ucodes->{prid}->{$prid} > $ucode ) {
Thanks for your new investigation, you were faster than me :)
I verified your patch, working also on my system now. I have filled
#1029147 and will upload a fixed package to stable after I have got the
approve from -release
Thanks for it!