sbsv1_os/e32toolp/e32util/checksource.pm
branchRCL_3
changeset 73 22bdd8a90cc4
parent 18 99082257a271
equal deleted inserted replaced
62:7416fe50a180 73:22bdd8a90cc4
    35 	CheckSource_Physical
    35 	CheckSource_Physical
    36 	$CheckSource_PhysicalCheck
    36 	$CheckSource_PhysicalCheck
    37 	$CheckSource_NoUserSystemDistinction
    37 	$CheckSource_NoUserSystemDistinction
    38 );
    38 );
    39 
    39 
    40 use strict;
       
    41 use Cwd;
    40 use Cwd;
    42 use Pathutl;
    41 use Pathutl;
    43 use Win32;
    42 use Win32;
    44 
    43 
    45 my $exclusionsFile = $ENV{EPOCROOT}."epoc32\\tools\\filenamepolicyexclusions.txt";
    44 my $exclusionsFile = $ENV{EPOCROOT}."epoc32\\tools\\filenamepolicyexclusions.txt";
    46 
    45 
    47 my $makefileWarningPrefix = "\@echo ";
    46 my $makefileWarningPrefix = "\@echo ";
    48 my $checksourcePrefix = "\@perl -w -S checksource.pl";
    47 my $checksourcePrefix = "\@perl -S checksource.pl";
    49 my $releaseLocationRoot = quotemeta ($ENV{EPOCROOT}."epoc32");
    48 my $releaseLocationRoot = quotemeta ($ENV{EPOCROOT}."epoc32");
    50 
    49 
    51 
    50 
    52 sub CheckSource_MetaData (\%$$$$;$;$)
    51 sub CheckSource_MetaData (\%$$$$;$;$)
    53 	{
    52 	{