[darcs-users] can we get rid of perl requirement in our test suite?

[Eric Kow]

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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <http://lists.osuosl.org/pipermail/darcs-users/attachments/20090526/dd25f029/attachment.pgp>