win7下perl报错

mousimin

程序中使用LWP模块，在win2003上执行没问题，在win7下安装相同的perl解释器就会报错，报错为：

1. Global symbol "%Config" requires explicit package name at C:/Perl/lib/Time/Local.pm line 36.
   
2. Global symbol "%Config" requires explicit package name at C:/Perl/lib/Time/Local.pm line 39.
   
3. Compilation failed in require at C:/Perl/site/lib/HTTP/Date.pm line 11.
   
4. Compilation failed in require at C:/Perl/lib/LWP/UserAgent.pm line 12.
   
5. BEGIN failed--compilation aborted at C:/Perl/lib/LWP/UserAgent.pm line 12.
   
6. Compilation failed in require at C:/Perl/lib/LWP.pm line 7.
   
7. Compilation failed in require at LWP2.pl line 4.
   
8. BEGIN failed--compilation aborted at LWP2.pl line 4.

复制代码

看了下C:/Perl/lib/Time/Local.pm这个PM包，不明白%Config的用法，请各位指教。

1. package Time::Local;
   
2. 
   
3. require Exporter;
   
4. use Carp;
   
5. use Config;
   
6. use strict;
   
7. 
   
8. use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
   
9. $VERSION   = '1.2300';
   
10. 
    
11. @ISA       = qw( Exporter );
    
12. @EXPORT    = qw( timegm timelocal );
    
13. @EXPORT_OK = qw( timegm_nocheck timelocal_nocheck );
    
14. 
    
15. my @MonthDays = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
    
16. 
    
17. # Determine breakpoint for rolling century
    
18. my $ThisYear    = ( localtime() )[5];
    
19. my $Breakpoint  = ( $ThisYear + 50 ) % 100;
    
20. my $NextCentury = $ThisYear - $ThisYear % 100;
    
21. $NextCentury += 100 if $Breakpoint < 50;
    
22. my $Century = $NextCentury - 100;
    
23. my $SecOff  = 0;
    
24. 
    
25. my ( %Options, %Cheat );
    
26. 
    
27. use constant SECS_PER_MINUTE => 60;
    
28. use constant SECS_PER_HOUR   => 3600;
    
29. use constant SECS_PER_DAY    => 86400;
    
30. 
    
31. my $MaxDay;
    
32. if ($] < 5.012000) {
    
33.     my $MaxInt;
    
34.     if ( $^O eq 'MacOS' ) {
    
35.         # time_t is unsigned...
    
36.         $MaxInt = ( 1 << ( 8 * $Config{ivsize} ) ) - 1;
    
37.     }
    
38.     else {
    
39.         $MaxInt = ( ( 1 << ( 8 * $Config{ivsize} - 2 ) ) - 1 ) * 2 + 1;
    
40.     }
    
41. 
    
42.     $MaxDay = int( ( $MaxInt - ( SECS_PER_DAY / 2 ) ) / SECS_PER_DAY ) - 1;
    
43. }
    
44. else {
    
45.     # recent localtime()'s limit is the year 2**31
    
46.     $MaxDay = 365 * (2**31);
    
47. }
    
48. ......

复制代码

Amyshu121

http://eliteguides.over-blog.com

mousimin

回复 2# Amyshu121


    没看明白，请指点下~

yybmsrs

怎么安装的？

mousimin

回复 4# yybmsrs


    perl-5.10.0版本ActivePerl-5.10.0.1005-MSWin32-x86-290470.msi，直接在win7下傻瓜式安装。。。
LWP模块使用界面工具PPM安装。。。
包括LWP在内的好多模块在使用的时候都会报相同的错误（%config没有定义）

yybmsrs

C:/Perl/lib/Config.pm看看这个文件

mousimin

回复 6# yybmsrs


   
C:/Perl/lib/Config.pm开头已经用use vars定义了%Config了，应该是不回报错，但是现在还是报错。

1. package Config;
   
2. use strict;
   
3. use warnings;
   
4. use vars '%Config';
   
5. 
   
6. # Skip @Config::EXPORT because it only contains %Config, which we special
   
7. # case below as it's not a function. @Config::EXPORT won't change in the
   
8. # lifetime of Perl 5.
   
9. my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1,
   
10.                     config_re => 1, compile_date => 1, local_patches => 1,
    
11.                     bincompat_options => 1, non_bincompat_options => 1,
    
12.                     header_files => 1);
    
13. 
    
14. @Config::EXPORT = qw(%Config);
    
15. @Config::EXPORT_OK = keys %Export_Cache;

复制代码

yybmsrs

不应该

mousimin

不要不要沉啊。。。

mousimin

顶一个，不要沉