Skip to content
Permalink
Browse files

stripped the full path when printing the bin name

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@1466 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
Jean-Pierre Mouilleseaux
Jean-Pierre Mouilleseaux committed Dec 20, 2002
1 parent eba9599 commit b629676cad2aa5463b249386855fbab8ba6b51f3
Showing with 4 additions and 4 deletions.
  1. +1 −1 src/pkg_mkindex.tcl
  2. +2 −2 src/port/port.tcl
  3. +1 −1 src/port/portindex.tcl
@@ -29,7 +29,7 @@
# POSSIBILITY OF SUCH DAMAGE.

if {$argc < 1} {
puts "Usage: $argv0 <directory list>"
puts "Usage: [exec basename $argv0] <directory list>"
exit
}
foreach dir $argv {
@@ -36,12 +36,12 @@ set portdir .
# Standard procedures
proc print_usage args {
global argv0
puts "Usage: $argv0 \[-vDq\] \[action\] \[-d portdir\] \[options\]"
puts "Usage: [exec basename $argv0] \[-vDq\] \[action\] \[-d portdir\] \[options\]"
}

proc fatal args {
global argv0
puts stderr "$argv0: $args"
puts stderr "[exec basename $argv0]: $args"
exit
}

@@ -12,7 +12,7 @@ set depth 0
# Standard procedures
proc print_usage args {
global argv0
puts "Usage: $argv0 \[-a\] \[-o output directory\] \[directory\]"
puts "Usage: [exec basename $argv0] \[-a\] \[-o output directory\] \[directory\]"
puts "-a:\tArchive port directories (for remote sites). Requires -o option"
puts "-o:\tOutput all files to specified directory"
}

0 comments on commit b629676

Please sign in to comment.
You can’t perform that action at this time.