Package: librcs-perl
Version: 1.05-1
Some functions of the librcs-perl package cannot handle filenames with spaces.
For two functions I wrote a small patch which is attached at this bugreport.
--- /usr/share/perl5/Rcs.pm 2003-12-13 03:27:41.000000000 +0100
+++ Rcs.pm 2008-07-02 11:14:10.000000000 +0200
@@ -526,7 +526,7 @@
unless -e $rcsdiff_prog;
return(_rcsError "rcsdiff program $rcsdiff_prog not executable")
unless -x $rcsdiff_prog;
- open(DIFF, "$rcsdiff_prog $param_str $arcfile $workfile |")
+ open(DIFF, "$rcsdiff_prog $param_str '$arcfile' '$workfile' |")
or return(_rcsError "Can't fork $rcsdiff_prog: $!");
my @diff_output = <DIFF>;
@@ -619,7 +619,7 @@
my $archive_file = $rcsdir . $Dir_Sep . $arcfile;
return(_rcsError "rlog program $rlogprog not found") unless -e $rlogprog;
return(_rcsError "rlog program $rlogprog not executable") unless -x $rlogprog;
- open(RLOG, "$rlogprog $param_str $archive_file |")
+ open(RLOG, "$rlogprog $param_str '$archive_file' |")
or return(_rcsError "Can't fork $rlogprog: $!");
my @logoutput = <RLOG>;
