Subversion Repositories DevTools

Rev

Rev 1602 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1602 Rev 1604
Line 5014... Line 5014...
5014
        next unless ( -f $prog );
5014
        next unless ( -f $prog );
5015
        $prog_found = 1;
5015
        $prog_found = 1;
5016
        last;
5016
        last;
5017
    }
5017
    }
5018
 
5018
 
-
 
5019
    #
-
 
5020
    #   Note: Use $RootDir for the ISBUILD workdir
-
 
5021
    #         Would like t use interface, but it makes
-
 
5022
    #         the pathname longer and some MergeModules can
-
 
5023
    #         be extracted. ISBUILD appears to have a path length limit of
-
 
5024
    #         about 204 character. We need all we can get.
-
 
5025
    #
-
 
5026
 
5019
    Error("isbuild.pl not found") unless $prog_found;
5027
    Error("isbuild.pl not found") unless $prog_found;
5020
    Verbose("isbuild: $prog");
5028
    Verbose("isbuild: $prog");
5021
    my $rv = system ( $ENV{GBE_PERL}, $prog,
5029
    my $rv = system ( $ENV{GBE_PERL}, $prog,
5022
                            "-project=../$PkgName.ism",
5030
                            "-project=../$PkgName.ism",
5023
                            "-version=$PkgVersionUser",
5031
                            "-version=$PkgVersionUser",
5024
                            "-out=$ReleaseDir",
5032
                            "-out=$ReleaseDir",
5025
                            "-workdir=$InterfaceDir",
5033
                            "-workdir=$RootDir",
5026
                            @user_options,
5034
                            @user_options,
5027
                            map { "-mergemodule=$_" } @mm_dirs
5035
                            map { "-mergemodule=$_" } @mm_dirs
5028
                             );
5036
                             );
5029
    Error ("InstallShield Builder Error" ) if ( $rv );
5037
    Error ("InstallShield Builder Error" ) if ( $rv );
5030
    return 1;
5038
    return 1;