Subversion Repositories DevTools

Rev

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

Rev 1113 Rev 4769
Line 278... Line 278...
278
        #
278
        #
279
        #   Create a Tar command
279
        #   Create a Tar command
280
        #   Assumes the presence of a GNU style tar
280
        #   Assumes the presence of a GNU style tar
281
        #
281
        #
282
        CreateDir ( $WORK );
282
        CreateDir ( $WORK );
283
        System ( 'gtar',
283
        System ( 'tar',
284
                 '--extract',
284
                 '--extract',
285
                 '--file',  $fname,
285
                 '--file',  $fname,
286
                 '--gzip',
286
                 '--gzip',
287
                 IsVerbose(1) ? ( '--verbose' ) : (),
287
                 IsVerbose(1) ? ( '--verbose' ) : (),
288
                 '--directory', $WORK,
288
                 '--directory', $WORK,
Line 371... Line 371...
371
 
371
 
372
    #
372
    #
373
    #   Create a Tar command
373
    #   Create a Tar command
374
    #   Assumes the presence of a GNU style tar
374
    #   Assumes the presence of a GNU style tar
375
    #
375
    #
376
    System ( 'gtar',
376
    System ( 'tar',
377
             '--create',
377
             '--create',
378
             '--file',  $name,
378
             '--file',  $name,
379
             '--gzip',
379
             '--gzip',
380
             IsVerbose(1) ? ( '--verbose' ) : (),
380
             IsVerbose(1) ? ( '--verbose' ) : (),
381
             '--directory', $WORK,
381
             '--directory', $WORK,