[svn:parrot] r45388 - trunk/lib/Parrot/Pmc2c

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Fri Apr  2 23:13:07 2010
New Revision: 45388
URL: https://trac.parrot.org/parrot/changeset/45388

Log:
Applying patch submitted by Util++ for http://trac.parrot.org/parrot/ticket/1541.

Modified:
   trunk/lib/Parrot/Pmc2c/Pmc2cMain.pm

Modified: trunk/lib/Parrot/Pmc2c/Pmc2cMain.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/Pmc2cMain.pm	Fri Apr  2 22:22:55 2010	(r45387)
+++ trunk/lib/Parrot/Pmc2c/Pmc2cMain.pm	Fri Apr  2 23:13:07 2010	(r45388)
@@ -240,8 +240,11 @@
         return $path if -e $path;
     }
 
-    print Carp::longmess;
-    die "cannot find file '$file' in path '", join( "', '", @includes ), "'" if $die_unless_found;
+    if ($die_unless_found) {
+        my $includes_list = join q|', '| => @includes;
+        Carp::confess("cannot find file '$file' in path '$includes_list'");
+    }
+
     return;
 }