<pre style='margin:0'>
Rainer Müller (raimue) pushed a commit to branch release-2.4
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/6b5f7905cb3173eb334236b38b18eab983d1cc92">https://github.com/macports/macports-base/commit/6b5f7905cb3173eb334236b38b18eab983d1cc92</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 6b5f7905cb3173eb334236b38b18eab983d1cc92
</span>Author: Ryan Schmidt <ryandesign@macports.org>
AuthorDate: Sat Dec 9 10:49:07 2017 -0600
<span style='display:block; white-space:pre;color:#404040;'> portutil.tcl: Fix case-only renames when no arguments given
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> Closes: https://trac.macports.org/ticket/55492
</span><span style='display:block; white-space:pre;color:#404040;'> (cherry picked from commit acc1e62d8560609652977e563734f805c41244cf)
</span>---
src/port1.0/portutil.tcl | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portutil.tcl b/src/port1.0/portutil.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index a5b5e1c..6452a39 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portutil.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portutil.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3,7 +3,7 @@
</span> # Copyright (c) 2002-2003 Apple Inc.
# Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
# Copyright (c) 2006-2007 Markus W. Weissmann <mww@macports.org>
<span style='display:block; white-space:pre;background:#ffe0e0;'>-# Copyright (c) 2004-2016 The MacPorts Project
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# Copyright (c) 2004-2017 The MacPorts Project
</span> # All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1169,6 +1169,7 @@ proc move {args} {
</span> default {return -code error "move: illegal option -- $arg"}
}
}
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ append options --
</span> if {[llength $args] == 2} {
set oldname [lindex $args 0]
set newname [lindex $args 1]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1176,8 +1177,8 @@ proc move {args} {
</span> # case-only rename
set tempdir [mkdtemp ${oldname}-XXXXXXXX]
set tempname $tempdir/[file tail $oldname]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- file rename $options -- $oldname $tempname
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- file rename $options -- $tempname $newname
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ file rename $options $oldname $tempname
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ file rename $options $tempname $newname
</span> delete $tempdir
return
}
</pre><pre style='margin:0'>
</pre>