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,