File perl-Finance-Quote-70690-IndiaMutual-temp.patch of Package perl-Finance-Quote

https://rt.cpan.org/Public/Bug/Display.html?id=70690

Subject: Finance::Quote::IndiaMutual temp file creation
Date: Fri, 2 Sep 2011 00:13:44 +0100
To: bug-Finance-Quote [...] rt.cpan.org
From: Vishal Grover <vishal.grover [...] gmail.com>

Hi,

Finance::Quote::IndiaMutual uses a hardcoded temporary file for downloaded
NAVs. This approach fails with ActivePerl on Windows. A simple patch is
below

Thanks
Vishal

Index: finance-quote/lib/Finance/Quote/IndiaMutual.pm
===================================================================
--- finance-quote.orig/lib/Finance/Quote/IndiaMutual.pm
+++ finance-quote/lib/Finance/Quote/IndiaMutual.pm
@@ -13,6 +13,7 @@ use LWP::UserAgent;
 use HTTP::Request::Common;
 use HTTP::Status;
 use HTML::TableExtract;
+use File::Temp qw / tempfile /;
 
 $VERSION = '1.17';
 
@@ -22,7 +23,7 @@ $VERSION = '1.17';
 $AMFI_MAIN_URL = ("http://amfiindia.com/");
 $AMFI_URL = ("${AMFI_MAIN_URL}NavReport.aspx?type=0");
 #$AMFI_URL = ("${AMFI_MAIN_URL}spages/NAV0.txt"); This page seems to do the job also. Keep for reference
-$AMFI_NAV_LIST = "/tmp/amfinavlist.txt";
+(undef, $AMFI_NAV_LIST) = tempfile();
 
 sub methods { return (indiamutual => \&amfiindia,
 		      amfiindia => \&amfiindia); }