Changeset 9657

Timestamp:

12/13/09 02:28:53 (2 years ago)

Author:

szabgab

Message:

move temp dir creation to common script

Location:

trunk/Debug-Client/t

Files:

• 01-add.t (modified) (1 diff)
• lib/Debugger.pm (modified) (3 diffs)

trunk/Debug-Client/t/01-add.t

@@ -4 +4 @@
 use t::lib::Debugger;
 
-use File::Temp qw(tempdir);
-my $dir = tempdir(CLEANUP => 1);
-
-my $pid = start_script('t/eg/01-add.pl', $dir);
+my ($dir, $pid) = start_script('t/eg/01-add.pl');
 
 require Test::More;

trunk/Debug-Client/t/lib/Debugger.pm

@@ -2 +2 @@
 use strict;
 use warnings;
+
+use File::Temp qw(tempdir);
+
 
 use Exporter;
@@ -13 +16 @@
 
 sub start_script {
-    my ($file, $dir) = @_;
+    my ($file) = @_;
     my $pid = fork();
+    my $dir = tempdir(CLEANUP => 1);
+
     die if not defined $pid;
 
@@ -24 +29 @@
     }
 
-    return $pid;
+    return ($dir, $pid);
 }