30 my $vc_win32_info = {};
31 sub vc_win32_info {
32     unless (%$vc_win32_info) {
36             $vc_win32_info = { AS        => $ver ge $vew ? "nasm" : "nasmw",
43             $vc_win32_info = { AS        => "ml",
50             $vc_win32_info = { AS        => "{unknown}",
57     return $vc_win32_info;
1424         AS               => sub { vc_win32_info()->{AS} },  function
1425         ASFLAGS          => sub { vc_win32_info()->{ASFLAGS} },  function
1426         asoutflag        => sub { vc_win32_info()->{asoutflag} },  function
1427         asflags          => sub { vc_win32_info()->{asflags} },  function
1432         perlasm_scheme   => sub { vc_win32_info()->{perlasm_scheme} },  function