svn commit: r1457920 - /subversion/trunk/contrib/client-side/svncopy/svncopy.pl.in

[cm...@apache.org]

Author: cmpilato
Date: Mon Mar 18 19:01:39 2013
New Revision: 1457920

URL: http://svn.apache.org/r1457920
Log:
Finish issue #4151 ("patch for svncopy.pl option --file").

* contrib/client-side/svncopy/svncopy.pl.in
  Teach this script to absorb the --file option processing rather than
  trying to pass the option off verbatim to 'svn' subcommands which
  don't even accept it (such as 'checkout').

Patch by: dario.borreguero{_AT_}gmail.com

Modified:
    subversion/trunk/contrib/client-side/svncopy/svncopy.pl.in

Modified: subversion/trunk/contrib/client-side/svncopy/svncopy.pl.in
URL: http://svn.apache.org/viewvc/subversion/trunk/contrib/client-side/svncopy/svncopy.pl.in?rev=1457920&r1=1457919&r2=1457920&view=diff
==============================================================================
--- subversion/trunk/contrib/client-side/svncopy/svncopy.pl.in (original)
+++ subversion/trunk/contrib/client-side/svncopy/svncopy.pl.in Mon Mar 18 19:01:39 2013
@@ -92,7 +92,7 @@ GetOptions( "pin-externals|tag|t" => \$p
             "revision|r=s" => \$revision,
             "verbose!" => \$verbose,
             "quiet|q" => sub { $verbose = 0; push( @svn_options, "--quiet" ) },
-            "file|F=s" => sub { push( @svn_options, "--file", $_[1] ) },
+            "file|F=s" => sub { open FILE, $_[1]; my @content = <FILE>; $message = join("\n", @content, "\n"); close FILE; },
             "username=s" => sub { push( @svn_options, "--username", $_[1] ) },
             "password=s" => sub { push( @svn_options, "--password", $_[1] ) },
             "no_auth_cache" => sub { push( @svn_options, "--no-auth-cache" ) },