Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv1776
Modified Files:
Tag: uidgid
User.pm
Log Message:
Okay seems that the lstat part is broke need to read finish this tomorrow
Index: User.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Attic/User.pm,v
retrieving revision 1.1.2.24
retrieving revision 1.1.2.25
diff -u -d -r1.1.2.24 -r1.1.2.25
--- User.pm 13 Aug 2003 02:02:51 -0000 1.1.2.24
+++ User.pm 13 Aug 2003 02:09:30 -0000 1.1.2.25
@@ -81,12 +81,12 @@
### Don't add DEBIAN dir
next if ($file =~ /DEBIAN/);
### Skip the rootdir
- next if ($file eq $rootdir);
+ next if ($file =~ /^$rootdir$/);
($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($file);
### Skip anything that doesn't have a user or group;
- next if (not $uid or not $gid);
+ # next if (not $uid or not $gid);
$usr = User::pwent::getpwuid($uid);
$grp = User::grent::getgrgid($gid);
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
