burak / CPAN-Sys-Info-Driver-Windows

Windows driver for Sys::Info (Perl)

Changed (Δ60 bytes):

raw changeset »

SPEC (1 lines added, 0 lines removed)

Windows.xs (2 lines added, 2 lines removed)

Up to file-list SPEC:

…… @@ -7,6 +7,7 @@ die "OS unsupported\n" if $^O !~ m{ \A M 
7
 
7
 
        'ExtUtils::CBuilder'         => 0,
 
8
 
8
 
        'Win32::OLE'                 => 0,
 
9
 
9
 
        'Win32::TieRegistry'         => 0,
 
10
 
        ( $] < 5.006 ? ( 'warnings::compat' => 0 ) : ()),
 
10
 
11
 
    },
 
11
 
12
 
    build_requires => {
 
12
 
13
 
        'Test::Sys::Info' => '0.15',

Up to file-list Windows.xs:

…… @@ -180,8 +180,8 @@ PPCODE: 
180
 
180
 
        PUSHs( sv_2mortal( newSVpv( "lpMaximumApplicationAddress"  , 0 ) ) );
 
181
 
181
 
        PUSHs( sv_2mortal( newSVuv( si.lpMaximumApplicationAddress     ) ) );
 
182
 
182
 

        	

			
        
			
        	

          		
183

          		

          		
        PUSHs( sv_2mortal( newSVpv( "wProcessBitness"             , 0 ) ) );

        	

			
        
			
        	

          		
184

          		

          		
        PUSHs( sv_2mortal( newSViv(  wProcessBitness                  ) ) );

        	

			
        
			
        	

          		

          		
183

          		
        PUSHs( sv_2mortal( newSVpv( "wProcessBitness"              , 0 ) ) );

        	

			
        
			
        	

          		

          		
184

          		
        PUSHs( sv_2mortal( newSViv(  wProcessBitness                   ) ) );

        	

			
        
			
        	

          		
185

          		
185

          		

        	

			
        
			
        	

          		
186

          		
186

          		
        PUSHs( sv_2mortal( newSVpv( "wProcessorBitness"            , 0 ) ) );

        	

			
        
			
        	

          		
187

          		
187

          		
        PUSHs( sv_2mortal( newSViv(  wProcessorBitness                 ) ) );