Re^2: cwd pragma (rfc)

substr($realpath, -length($basename)) = ''
  if substr($realpath, -length($basename)) eq $basename;
[download]

Comment on Re^2: cwd pragma (rfc) Download Code

Replies are listed 'Best First'.
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]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks