macports/macports-base
0
0
Fork 0
mirror of https://github.com/macports/macports-base.git synced 2026-07-12 18:18:43 -07:00
Code Issues Packages Projects Releases Wiki Activity

snapshot: handle no actionflags correctly

Browse Source 
This is documented to create a snapshot.

See: https://trac.macports.org/ticket/72628
This commit is contained in:
Joshua Root
2025-06-23 14:48:48 +10:00
parent 8da8bced8a
commit a27de93ec1
1 changed files with 13 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/macports1.0/snapshot.tcl
+13 -17
View File
@@ -54,29 +54,25 @@ namespace eval snapshot {
# Returns:
# registry::snapshot
if {![dict exists $opts options_snapshot_order]} {
set operation "create"
} else {
set operation ""
foreach op {list create diff delete export import} {
set opname "ports_snapshot_$op"
if {[dict exists $opts $opname]} {
if {$operation ne ""} {
ui_error "Only one of the --list, --create, --diff, --delete, --export, or --import options can be specified."
error "Incorrect usage, see port snapshot --help."
}
set operation $op
}
}
}
if {[dict exists $opts ports_snapshot_help]} {
print_usage
return 0
}
set operation ""
foreach op {list create diff delete export import} {
set optname ports_snapshot_$op
if {[dict exists $opts $optname]} {
if {$operation ne ""} {
ui_error "Only one of the --list, --create, --diff, --delete, --export, or --import options can be specified."
error "Incorrect usage, see port snapshot --help."
}
set operation $op
}
}
switch $operation {
"" -
"create" {
if {[catch {create $opts} result]} {
ui_error "Failed to create snapshot: $result"