develooper Front page | perl.perl6.users | Postings from November 2019

Useless use of constant value

Thread Next
From:
ToddAndMargo via perl6-users
Date:
November 28, 2019 04:07
Subject:
Useless use of constant value
Message ID:
cc1ed4de-9381-471e-d3e7-7f4ff8d31fea@zoho.com
Hi All,

C:\NtUtil>perl6 -v
This is Rakudo Star version 2019.03.1 built on MoarVM
version 2019.03 implementing Perl 6.d for Windows


What am I doing wrong here?

<WinVer.pm6>
unit module WinVer;
# WinVer.pm6

sub WinVer() is export( :WinVer ) {
#`{
       Reference: https://www.gaijin.at/en/infos/windows-version-numbers

       Return a string with the name of the Windows version:

}

    my %Ver = (
       "5.10"       => "Windows XP",
       "6.10"       => "Windows 7",
       "6.20"       => "Windows 8",
       "6.30"       => "Windows 8.1",
       "10.0.10240" => "Windows 10-1507",
       "10.0.10586" => "Windows 10-1511",
       "10.0.14393" => "Windows 10-1607",
       "10.0.16299" => "Windows 10-1709",
       "10.0.17134" => "Windows 10-1803",
       "10.0.17763" => "Windows 10-1607",
       "10.0.18362" => "Windows 10-1903",
       "10.0.18363" => "Windows 10-1909" );

    my Str $RtnStr;
    my Str $Version;

    say %Ver;
    # $RtnStr = qx ( ver );
    # for %Ver -> $Key  {
    #    say $Key;
    # }

}
</WinVer.pm6>


C:\NtUtil>perl6 -e "use lib 'C:\NtUtil'; use WinVer :WinVer; WinVer;"

WARNINGS for -e:
Useless use of constant value WinVer in sink context (line 1)

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About