[svn:parrot] r36494 - trunk/tools/util

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Feb  9 16:44:46 2009
New Revision: 36494
URL: https://trac.parrot.org/parrot/changeset/36494

Log:
[tools] fix an exception handler in pgegrep, TT #295

Modified:
   trunk/tools/util/pgegrep

Modified: trunk/tools/util/pgegrep
==============================================================================
--- trunk/tools/util/pgegrep	Mon Feb  9 15:36:31 2009	(r36493)
+++ trunk/tools/util/pgegrep	Mon Feb  9 16:44:46 2009	(r36494)
@@ -185,9 +185,12 @@
 
 	end
 handler:
-	.local pmc exception
+	.local pmc exception, pmcmsg
 	.local string message
-	.get_results (exception, message)
+	.get_results (exception)
+	pmcmsg = getattribute exception, 'message'
+	pop_eh
+        message = pmcmsg
         message  = "pgegrep: " . message
         die message
 .end