remove temporary cookie file after test

sni · Sep 13, 2013 · 636ec64 · 636ec64
1 parent b79290f
commit 636ec64
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/Webinject/Changes b/Webinject/Changes
@@ -7,6 +7,9 @@ For information and documentation, visit the website at http://www.webinject.org
 ---------------------------------
 Release History:
 
+Version 1.80 - ...
+    - remove temporary cookie file after test
+
 Version 1.78 - Thu Jan  3 22:49:56 CET 2013
     - replace parsedresult in xml input file
     - added fallback timeout for test cases

diff --git a/Webinject/lib/Webinject.pm b/Webinject/lib/Webinject.pm
@@ -574,7 +574,9 @@ sub _get_useragent {
     my $useragent  = LWP::UserAgent->new(keep_alive=>1);
 
     # store cookies in our LWP object
-    my($fh, $cookietempfilename) = tempfile(undef, UNLINK => 1);
+    my $fh;
+    our $cookietempfilename;
+    ($fh, $cookietempfilename) = tempfile(undef, UNLINK => 1);
     unlink ($cookietempfilename);
     $useragent->cookie_jar(HTTP::Cookies->new(
                                                  file     => $cookietempfilename,
@@ -1899,6 +1901,13 @@ EOB
     exit 3;
 }
 
+################################################################################
+# make sure we don't keep the cookie temp file
+END {
+    our $cookietempfilename;
+    unlink($cookietempfilename) if $cookietempfilename;
+}
+
 =head1 EXAMPLES
 
 =head2 example test case