Ignore:
Timestamp:
Aug 14, 2005, 7:21:47 AM (13 years ago)
Author:
pguyot (Paul Guyot)
Message:

Add support for bz2 compressed archives.

Bug: #4074
Submitted by: yves@
Reviewed by:
Approved by:
Obtained from:

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r13490 r13500  
    12841284                        }
    12851285                }
    1286                 t(ar|gz) {
     1286                t(ar|bz|gz) {
    12871287                        set tar "tar"
    12881288                        if {[catch {set tar [binaryInPath $tar]} errmsg] == 0} {
    12891289                                if {[regexp {z$} $type]} {
    1290                                         set gzip "gzip"
     1290                                        if {[regexp {bz$} $type]} {
     1291                                                set gzip "bzip2"
     1292                                        } else {
     1293                                                set gzip "gzip"
     1294                                        }
    12911295                                        if {[catch {set gzip [binaryInPath $gzip]} errmsg] == 0} {
    12921296                                                return 0
Note: See TracChangeset for help on using the changeset viewer.