Subversion Repositories DevTools

Rev

Rev 6152 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6152 Rev 6485
Line 222... Line 222...
222 
    $ext = '.tar.bz2';
 222 
    $ext = '.tar.bz2';
223 
} elsif ( -e $TARBALL_FILE . ".tar.gz" ) {
 223 
} elsif ( -e $TARBALL_FILE . ".tar.gz" ) {
224 
    $TARBALL_FILE=$TARBALL_FILE . ".tar.gz";
 224 
    $TARBALL_FILE=$TARBALL_FILE . ".tar.gz";
225 
    $TAR_DECOMP_ARG='z';
 225 
    $TAR_DECOMP_ARG='z';
226 
    $ext = '.tar.gz';
 226 
    $ext = '.tar.gz';
227 
} elsif ( $TARBALL_FILE . ".tgz" ) {
 227 
} elsif ( -e $TARBALL_FILE . ".tgz" ) {
228 
    $TARBALL_FILE=$TARBALL_FILE . ".tgz";
 228 
    $TARBALL_FILE=$TARBALL_FILE . ".tgz";
229 
    $TAR_DECOMP_ARG='z';
 229 
    $TAR_DECOMP_ARG='z';
230 
    $ext = '.tgz';
 230 
    $ext = '.tgz';
- 
 
 231 
} elsif ( -e $TARBALL_FILE . ".tar" ) {
- 
 
 232 
    $TARBALL_FILE=$TARBALL_FILE . ".tar";
- 
 
 233 
    $ext = '.tar';
231 
} elsif ( $TARBALL_FILE . ".zip" ) {
 234 
} elsif ( -e $TARBALL_FILE . ".zip" ) {
232 
    $TARBALL_FILE=$TARBALL_FILE . ".zip";
 235 
    $TARBALL_FILE=$TARBALL_FILE . ".zip";
233 
    $ZIP_DECOMP_ARG='x';
 236 
    $ZIP_DECOMP_ARG='x';
234 
    $ext = '.zip';
 237 
    $ext = '.zip';
235 
} else {
 238 
} else {
236 
    Error ("Could not find download file $TARBALL_FILE.<tar.gz|tar.bz2|tgz|zip>");
 239 
    Error ("Could not find download file $TARBALL_FILE.<tar.gz|tar.bz2|tgz|zip>");
Line 342... Line 345...
342 
        my $patch=$_;
 345 
        my $patch=$_;
343 
        Message " --> Applying patch: $patch";
 346 
        Message " --> Applying patch: $patch";
344 
        System ("perl $patch_script -p1 < $patch");
 347 
        System ("perl $patch_script -p1 < $patch");
345 
    }
 348 
    }
346 
 
 349 
 
347 
    my @patches = glob("$PATCH_DIR/*.patch.$opt_PLATFORM");
 350 
    @patches = glob("$PATCH_DIR/*.patch.$opt_PLATFORM");
348 
    @patches = sort @patches;
 351 
    @patches = sort @patches;
349 
    foreach (@patches) {
 352 
    foreach (@patches) {
350 
        my $patch=$_;
 353 
        my $patch=$_;
351 
        Message " --> Applying platform patch: $patch";
 354 
        Message " --> Applying platform patch: $patch";
352 
        System ("perl $patch_script -p1 < $patch");
 355 
        System ("perl $patch_script -p1 < $patch");