Re: flatten rewritten in perl (first hack)
Steve McIntyre <email@example.com> writes:
> On Tue, 22 Dec 1998, Jens Ritter wrote:
> >I rewrote the "flatten" step of the slink_cd-0.93 in perl because it is
> >one of the most time consuming steps (bad for fast development). It is
> >included as attachment.
> >I didn't test, wether there are any differences. I am open to suggestions
> >how to test that.
> Looks good to me, I've included it for v0.94
Well, I just found a bug:
The line reading
/^(.*\/)(.*)$/; # regexps are greedy (replaces basename and dirname).
has to be changed to:
/^(.*)\/(.*)$/; # regexps are greedy (replaces basename and dirname).
(because dirname and basename do not pass back the "/" in the middle
between the dir and base. This will cause bad "one off" symlinks.)
KeyID: 2048/E451C639 1998/01/28
Print: 5F 3D 43 1E 24 1E CC 48 1E 05 93 3A A7 10 73 37
The Unix way of drinking tea:
cat /dev/boiler/water | tea | sieve > /cup
mount -t hdev /dev/human/mouth01 /mouth ; cat /cup >/mouth/gulp