r15937@rob-kinyons-computer (orig r9234): rkinyon | 2007-03-12 16:07:23 -0400

[dbsrgits/DBM-Deep.git] / t / 44_upgrade_db.t

diff --git a/t/44_upgrade_db.t b/t/44_upgrade_db.t
index b48d1be..a737591 100644 (file)
--- a/t/44_upgrade_db.t
+++ b/t/44_upgrade_db.t
@@ -133,7 +133,7 @@ foreach my $input_filename (
 
 #XXX This needs to be made OS-portable
 sub run_prog {
-    open( my $fh, '-|', "@_ 2>&1" )
+    open( my $fh, '-|', "$^X @_ 2>&1" )
       or die "Cannot launch '@_' as a piped filehandle: $!\n";
     return join '', <$fh>;
 }