Only one left!
On Mon, May 25, 2009 at 12:05:21 +0300, Dan Pascu wrote:
> > tests/optimize_relink.sh: echo 'use File::Basename; $res=0; while
> > ($fn=<'$1'/*>) { $fn2="'$2'/" . basename($fn); @fd1=lstat($fn);
> > @fd2=lstat($fn2); $res += ($fd1[1] != $fd2[1]);}; exit($res);' | perl
In case any Perl hackers want to help us translate this to shell, or
maybe Haskell if need be:
# succeeds if there are hard links
use File::Basename;
$res=0;
while ($fn=<'$1'/*>) {
$fn2="'$2'/" . basename($fn);
@fd1=lstat($fn);
@fd2=lstat($fn2);
$res += ($fd1[1] != $fd2[1]);
};
exit($res);
Ideas? Surely something like ls -l should help us do what we want?
> > tests/pull_compl.sh: perl -i~ -pe "$1" foo
This turned out to be easy to fix.
--
Eric Kow <http://www.nltg.brighton.ac.uk/home/Eric.Kow>
PGP Key ID: 08AC04F9
signature.asc
Description: Digital signature
_______________________________________________ darcs-users mailing list [email protected] http://lists.osuosl.org/mailman/listinfo/darcs-users
