svn_load_dirs.pl.in patch for @ in filenames

[Are Årseth]

It seems that svn_load_dirs.pl fails when adding new files with @ in the
file name. The fix seems easy so here is the patch. I also included the two
fixes mentioned here
http://svn.haxx.se/users/archive-2007-01/0411.shtmlplus a verbose
option to see the svn warnings.

--- svn_load_dirs.pl.in 2010/09/30 13:14:21     91199
+++ svn_load_dirs.pl.in 2010/09/30 14:42:25     91223
@@ -1407,7 +1407,8 @@

   foreach my $file (@_)
     {
-      print TARGETS "$file\n";
+      #Add @ to end of filename in case the filename contains @
+      print TARGETS "$f...@\n";
     }

   close(TARGETS)
@@ -1555,7 +1556,7 @@
       if ( $comment ) { print $comment; }

       # Now do the pipe.
-      open(SAFE_READ, "@commandline |")
+      open(SAFE_READ, "@commandline 2>&1 |")
         or die "$0: cannot pipe to command: $!\n";
     }

@@ -1608,6 +1609,11 @@
     }
   else
     {
+        if ($opt_verbose)
+          {
+              print STDERR "@_ ran with this output:\n", join("\n", @output),
+                           "\n";
+          }
       return @output;
     }
 }
@@ -2045,5 +2051,6 @@
 sub DESTROY
 {
   print "Cleaning up $temp_dir\n";
+  chdir($orig_cwd);
   File::Path::rmtree([$temp_dir], 0, 0);
 }