sbsv1_os/e32toolp/e32util/defutl.pm
branchRCL_3
changeset 16 22bdd8a90cc4
parent 2 99082257a271
equal deleted inserted replaced
13:7416fe50a180 16:22bdd8a90cc4
    23 
    23 
    24 @EXPORT=qw(
    24 @EXPORT=qw(
    25 	Def_ReadFileL Def_WriteFileL
    25 	Def_ReadFileL Def_WriteFileL
    26 );
    26 );
    27 
    27 
    28 use strict;
       
    29 use File::Path;
    28 use File::Path;
    30 use File::Basename;
    29 use File::Basename;
    31 
    30 
    32 sub Def_ReadFileL ($$$$) {
    31 sub Def_ReadFileL ($$$$) {
    33 #	this function reads a .DEF file, putting the export information into a data
    32 #	this function reads a .DEF file, putting the export information into a data