Bug #4731 for Rcs: Unmatched ) before HERE mark in regex m/(.*)\(.*) << HERE / at C:\Perl\site\lib/Rcs.pm line 353.

RT for rt.cpan.org

This queue is for tickets about the Rcs CPAN distribution.

Report information

The Basics

Id:	4731
Status:	new
Priority:	0/
Queue:	Rcs

People

Owner:	Nobody in particular
Requestors:
Cc:
AdminCc:

Bug Information

Severity:	Important
Broken in:	1.05
Fixed in:	(no value)

History Show all quoted text

Sun Dec 21 08:29:50 2003 Guest - Ticket created

Subject:

Unmatched ) before HERE mark in regex m/(.*)\(.*) << HERE / at C:\Perl\site\lib/Rcs.pm line 353.

line 353 is if ($filename =~ m/(.*)$Dir_Sep(.*)/) { the easy fix would be to quotemeta that variable if ($filename =~ m/(.*)\Q$Dir_Sep\E(.*)/) { the proper solution would be to use File::Spec

Sun Dec 21 08:39:24 2003 Guest - Correspondence added

and a few lines lower you have $filename =~ s/$arcext$//; which also needs a \Q\E