[Plplot-cvs] SF.net SVN: plplot:[12427] trunk/scripts/mktclIndex

[<arj...@us...>]

Revision: 12427
          http://sourceforge.net/p/plplot/code/12427
Author:   arjenmarkus
Date:     2013-07-17 12:50:49 +0000 (Wed, 17 Jul 2013)
Log Message:
-----------
Print the error message if for some reason the script does fail, however
unlikely this is.

Modified Paths:
--------------
    trunk/scripts/mktclIndex

Modified: trunk/scripts/mktclIndex
===================================================================
--- trunk/scripts/mktclIndex	2013-07-16 19:20:07 UTC (rev 12426)
+++ trunk/scripts/mktclIndex	2013-07-17 12:50:49 UTC (rev 12427)
@@ -20,7 +20,7 @@
 }
 
 # Catch errors in case there are no tcl files, although this shouldn't happen
-catch {
+if { [catch {
     if { $HAVE_ITCL && ![catch {package require Itcl}] } {
     # Include all itcl, itk files.
 	auto_mkindex . *.tcl *.itcl *.itk *.ith *.itm
@@ -28,6 +28,8 @@
     # Just include tcl files
 	auto_mkindex . *.tcl
     }
+} msg] } {
+    puts "An error occurred, generating the tclIndex file: $msg"
 }
 
 exit

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.