Changeset 14329

Show
Ignore:
Timestamp:
07.08.2007 10:01:08 (12 years ago)
Author:
qq6
Message:

deleted BEGIN{} for GS3

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r14221 r14329  
    2626package util; 
    2727 
    28 BEGIN {                                                              
    29     die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};        
    30     die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};            
    31     unshift (@INC, "$ENV{'GSDLHOME'}/perllib");                      
    32     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");                 
    33 }                                                                    
    3428use File::Copy; 
    3529use File::Basename; 
    36 #use Win32::Hardlink; 
    3730 
    3831# removes files (but not directories)