Author: adam-guest
Date: 2008-03-22 21:47:34 +0000 (Sat, 22 Mar 2008)
New Revision: 1181
Modified:
trunk/scripts/debcheckout.pl
Log:
Make $fetched local to each file
Modified: trunk/scripts/debcheckout.pl
===================================================================
--- trunk/scripts/debcheckout.pl 2008-03-22 21:05:47 UTC (rev 1180)
+++ trunk/scripts/debcheckout.pl 2008-03-22 21:47:34 UTC (rev 1181)
@@ -284,9 +284,10 @@
my ($repo_type, $repo_url, $destdir, $browse_url) = @_;
my @cmd;
my $tempdir;
- my $fetched = 0;
foreach my $file (@files) {
+ my $fetched = 0;
+
# Cheap'n'dirty escaping
# We should possibly depend on URI::Escape, but this should do...
my $escaped_file = $file;
--
To unsubscribe, send mail to [EMAIL PROTECTED]
