[26172] branches/dp2mp-move/base/src/port/portindex.tcl

[source_changes at macosforge.org]

Revision: 26172
          http://trac.macosforge.org/projects/macports/changeset/26172
Author:   jmpp at macports.org
Date:     2007-06-15 00:22:45 -0700 (Fri, 15 Jun 2007)

Log Message:
-----------
Merging eridiu's r26038: Make portindex use stderr for errors (ticket #11585).

Modified Paths:
--------------
    branches/dp2mp-move/base/src/port/portindex.tcl

Modified: branches/dp2mp-move/base/src/port/portindex.tcl
===================================================================
--- branches/dp2mp-move/base/src/port/portindex.tcl	2007-06-15 07:21:14 UTC (rev 26171)
+++ branches/dp2mp-move/base/src/port/portindex.tcl	2007-06-15 07:22:45 UTC (rev 26172)
@@ -106,7 +106,7 @@
 	set save_prefix $prefix
 	set prefix {\${prefix}}
     if {[catch {set interp [mportopen file://[file join $directory $portdir]]} result]} {
-		puts "Failed to parse file $portdir/Portfile: $result"
+		puts stderr "Failed to parse file $portdir/Portfile: $result"
 		# revert the prefix.
 		set prefix $save_prefix
 		incr stats(failed)
@@ -120,7 +120,7 @@
         if {$archive == "1"} {
             if {![file isdirectory [file join $outdir [file dirname $portdir]]]} {
                 if {[catch {file mkdir [file join $outdir [file dirname $portdir]]} result]} {
-                    puts "$result"
+                    puts stderr "$result"
                     exit 1
                 }
             }
@@ -128,7 +128,7 @@
             cd [file join $directory [file dirname $portinfo(portdir)]]
             puts "Archiving port $portinfo(name) to [file join $outdir $portinfo(portarchive)]"
             if {[catch {exec tar -cf - [file tail $portdir] | gzip -c >[file join $outdir $portinfo(portarchive)]} result]} {
-                puts "Failed to create port archive $portinfo(portarchive): $result"
+                puts stderr "Failed to create port archive $portinfo(portarchive): $result"
                 exit 1
             }
         }
@@ -157,7 +157,7 @@
 		incr i
 		set outdir [lindex $argv $i]
 	    } else {
-		puts "Unknown option: $arg"
+		puts stderr "Unknown option: $arg"
 		print_usage
 		exit 1
 	    }
@@ -167,7 +167,7 @@
 }
 
 if {$archive == 1 && ![info exists outdir]} {
-   puts "You must specify an output directory with -o when using the -a option"
+   puts stderr "You must specify an output directory with -o when using the -a option"
    print_usage
    exit 1
 }
@@ -178,7 +178,7 @@
 
 # cd to input directory 
 if {[catch {cd $directory} result]} {
-    puts "$result"
+    puts stderr "$result"
     exit 1
 } else {
     set directory [pwd]
@@ -187,11 +187,11 @@
 # Set output directory to full path
 if {[info exists outdir]} {
     if {[catch {file mkdir $outdir} result]} {
-        puts "$result"
+        puts stderr "$result"
         exit 1
     }
     if {[catch {cd $outdir} result]} {
-        puts "$result"
+        puts stderr "$result"
         exit 1
     } else {
         set outdir [pwd]

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070615/9126a13c/attachment.html