Re: cwd pragma (rfc)

I would suggest changing $realpath =~ s/$basename$//; to $realpath =~ s/\Q$basename\E$//;

Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

Comment on Re: cwd pragma (rfc) Select or Download Code

Replies are listed 'Best First'.
Re^2: cwd pragma (rfc) by ikegami (Patriarch) on Jun 27, 2006 at 23:14 UTC
or `substr($realpath, -length($basename)) = '' if substr($realpath, -length($basename)) eq $basename;` [download]	[reply] [d/l]
Re^3: cwd pragma (rfc) by sh1tn (Priest) on Jun 28, 2006 at 10:25 UTC
Maybe just `$realpath = join(q//, split(/.[^\/]+$/,$realpath));` [download]	[reply] [d/l]
Re^4: cwd pragma (rfc) by ikegami (Patriarch) on Jun 28, 2006 at 13:46 UTC
The point of mine was to remove slow operations, not add new ones.	[reply]