Ticket #14674: port.diff

src/port/port.tcl

@@ -2117 +2117 @@
                     array unset env *; array set env [array get boot_env]
                     
                     # Find an editor to edit the portfile
-                    set editor ""
+                    set editor "pico"
                     foreach ed { VISUAL EDITOR } {
                         if {[info exists env($ed)]} {
                             set editor $env($ed)
@@ -2125 +2125 @@
                         }
                     }
                     
-                    # Invoke the editor
-                    if { $editor == "" } {
-                        break_softcontinue "No EDITOR is specified in your environment" 1 status
-                    } else {
-                        if {[catch {eval exec >/dev/stdout </dev/stdin $editor $portfile} result]} {
-                            global errorInfo
-                            ui_debug "$errorInfo"
-                            break_softcontinue "unable to invoke editor $editor: $result" 1 status
-                        }
+                    if {[catch {eval exec >/dev/stdout </dev/stdin $editor $portfile} result]} {
+                        global errorInfo
+                        ui_debug "$errorInfo"
+                        break_softcontinue "unable to invoke editor $editor: $result" 1 status
                     }
                     
                     # Restore internal MacPorts environment