I had this forwarded message, and this worked for me. I can use psync on Tiger.

Begin forwarded message:


From: Izidor Jerebic <[EMAIL PROTECTED]>
Date: 21 May 2005 19:50:29 JST
To: OSX Admin <[EMAIL PROTECTED]>
Cc: [EMAIL PROTECTED]
Subject: Re: psync for tiger? (SOLVED)
Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed
Content-Transfer-Encoding: 7bit
X-Mailer: Apple Mail (2.730)



I have managed to install psync on Tiger. It seems that the problem was the bug in testing code. Heh. All it was needed was "force install MacOSX::File" in the cpan shell (sudo perl -MCPAN - e shell) instead of normal "install MacOSX::File".

The bug is in the usage of /Developer/Tools/GetFileInfo utility, which now returns additional flag for busy (z), so instead of expected "avbstcLinmed" it returns "avbstcLinmedz" when running on Tiger, and this additional "z" breaks the test.

izidor


And indeed MacOSX::File was compiled on Tiger normally with the following modifications. psync coming with DéjàVu was very slow and I was suspecting some incompatibility with the HFS+ case sensitive format. However the newly compiled psync runs much faster, just as fast as psync in Panther.

avec amitiés


Kino


====================================================================== ========= diff -Naur MacOSX-File-0.69.orig/t/catalog.t MacOSX-File-0.69/t/ catalog.t --- MacOSX-File-0.69.orig/t/catalog.t 2004-08-05 12:18:23.000000000 +0900 +++ MacOSX-File-0.69/t/catalog.t 2005-05-21 21:26:44.000000000 +0900
@@ -30,7 +30,7 @@
setcatalog($catalog, "dummy") ? ok(1) : ok(0);
my $asked = askgetfileinfo("dummy");
-$asked eq "avbstcLinmed" ? ok(1) : ok(0);
+$asked eq "avbstcLinmedz" ? ok(1) : ok(0);
$Debug and warn $asked ;
$Debug and Dump $catalog;
unlink "dummy";
diff -Naur MacOSX-File-0.69.orig/t/info.t MacOSX-File-0.69/t/info.t
--- MacOSX-File-0.69.orig/t/info.t 2004-08-05 12:18:26.000000000 +0900
+++ MacOSX-File-0.69/t/info.t   2005-05-21 21:27:23.000000000 +0900
@@ -35,7 +35,7 @@
ok($finfo->nodeFlags == 1);
ok(setfinfo($finfo, "dummy"));
my $asked = askgetfileinfo("dummy");
-ok($asked eq "avbstcLinmed");
+ok($asked eq "avbstcLinmedz");
$Debug and warn $asked ;
$Debug and print Dumper $finfo;
unlink "dummy";
====================================================================== =========


I hope this helps.

Best regards,

Nobumi Iyanaga
Tokyo,
Japan

Reply via email to