Re: Test::Smoke errors when 'make test' fails

Op een zonnige zomerdag (Monday 11 August 2003 23:12), schreef Alan Burlison:

> Looks like LD_LIBRARY_PATH isn't being set...

Bugger, I cleaned up a bit too much.
I guess 1.18.03 is comming real soon, please keep at it Alan...

Index: lib/Test/Smoke.pm
===================================================================
--- lib/Test/Smoke.pm	(revision 372)
+++ lib/Test/Smoke.pm	(revision 373)
@@ -108,6 +108,10 @@
     my $continue = shift;
     my $patch = shift || Test::Smoke::Util::get_patch( $conf->{ddir} );
 
+    exists $Config{ldlibpthname} && $Config{ldlibpthname} and
+        $ENV{ $Config{ldlibpthname} } ||= '',
+        substr( $ENV{ $Config{ldlibpthname} }, 0, 0)  = 
+            "$conf->{ddir}$Config{path_sep}";
     local *LOG;
     my $mode = $continue ? ">>" : ">";
     open LOG, "$mode " . File::Spec->catfile( $conf->{ddir}, 'mktest.out' )  
or

Good luck,

Abe
-- 
[about random hash-seed]
On Windows, I guess we just seed using the user's
credit card number as extracted from the registry. Product activation
collects that, doesn't it?
                                      -- Nicholas Clark on p5p @ 2003-07-07

Index: lib/Test/Smoke.pm
===================================================================
--- lib/Test/Smoke.pm	(revision 372)
+++ lib/Test/Smoke.pm	(revision 373)
@@ -108,6 +108,10 @@
     my $continue = shift;
     my $patch = shift || Test::Smoke::Util::get_patch( $conf->{ddir} );
 
+    exists $Config{ldlibpthname} && $Config{ldlibpthname} and
+        $ENV{ $Config{ldlibpthname} } ||= '',
+        substr( $ENV{ $Config{ldlibpthname} }, 0, 0)  = 
+            "$conf->{ddir}$Config{path_sep}";
     local *LOG;
     my $mode = $continue ? ">>" : ">";
     open LOG, "$mode " . File::Spec->catfile( $conf->{ddir}, 'mktest.out' )  or