Subversion Repositories DevTools

Rev

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

Rev 6835 Rev 6839
Line 333... Line 333...
333 
#
 333 
#
334 
if ( $DO_PATCHES )
 334 
if ( $DO_PATCHES )
335 
{
 335 
{
336 
    my $patch_script = "$opt_SCRIPT_DIR/patch.pl";
 336 
    my $patch_script = "$opt_SCRIPT_DIR/patch.pl";
337 
    Message " --> Patch script found at $patch_script";
 337 
    Message " --> Patch script found at $patch_script";
- 
 
 338 
 
338 
    my @patches = glob("$PATCH_DIR/*.patch");
 339 
    my @patches = glob("$PATCH_DIR/*.patch");
339 
    @patches = sort @patches;
 340 
    @patches = sort @patches;
340 
    foreach (@patches) {
 341 
    foreach (@patches) {
341 
        my $patch=$_;
 342 
        my $patch=$_;
342 
        Message " --> Applying $patch";
 343 
        Message " --> Applying patch: $patch";
- 
 
 344 
        System ("perl $patch_script -p1 < $patch");
- 
 
 345 
    }
- 
 
 346 
 
- 
 
 347 
    my @patches = glob("$PATCH_DIR/*.patch.$opt_PLATFORM");
- 
 
 348 
    @patches = sort @patches;
- 
 
 349 
    foreach (@patches) {
- 
 
 350 
        my $patch=$_;
- 
 
 351 
        Message " --> Applying platform patch: $patch";
343 
        System ("perl $patch_script -p1 < $patch");
 352 
        System ("perl $patch_script -p1 < $patch");
344
- 
 
345 
    }
 353 
    }
- 
 
 354 
 
346 
}
 355 
}
347 
 
 356 
 
348 
#
 357 
#
349 
#   Call the build script - first setup the environment, then enter the script.
 358 
#   Call the build script - first setup the environment, then enter the script.
350 
#
 359 
#