[interchange-cvs] interchange - heins modified
code/UI_Tag/file_navigator.coretag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Dec 20 22:32:45 EST 2007
User: heins
Date: 2007-12-21 03:32:43 GMT
Modified: code/UI_Tag file_navigator.coretag
Log:
* Fix problems caused by prototype mismatch in Perl 5.10.
Revision Changes Path
1.17 +8 -8 interchange/code/UI_Tag/file_navigator.coretag
rev 1.17, prev_rev 1.16
Index: file_navigator.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/file_navigator.coretag,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- file_navigator.coretag 30 Mar 2007 23:40:54 -0000 1.16
+++ file_navigator.coretag 21 Dec 2007 03:32:43 -0000 1.17
@@ -5,11 +5,11 @@
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. See the LICENSE file for details.
#
-# $Id: file_navigator.coretag,v 1.16 2007/03/30 23:40:54 pajamian Exp $
+# $Id: file_navigator.coretag,v 1.17 2007/12/21 03:32:43 mheins Exp $
UserTag file-navigator Order mask
UserTag file-navigator addAttr
-UserTag file-navigator Version $Revision: 1.16 $
+UserTag file-navigator Version $Revision: 1.17 $
UserTag file-navigator Routine <<EOR
use vars qw/$CGI $Session $Tag $Scratch/;
eval {
@@ -18,9 +18,9 @@
import Fcntl qw/:mode/;
};
if ($@) {
- sub S_ISUID { return 2048 }
- sub S_ISGID {return 1024}
- sub S_ISVTX {return 512}
+ *S_ISUID = sub {return 2048};
+ *S_ISGID = sub {return 1024};
+ *S_ISVTX = sub {return 512};
}
sub {
my ($dir_mask, $opt) = @_;
@@ -264,9 +264,9 @@
elsif (-d _) { $top = 'd' }
elsif (-f _) { $top = '-' }
else { $top = '?' }
- $ugo[0] =~ s/.$/s/ if $det[2] & S_ISUID;
- $ugo[1] =~ s/.$/s/ if $det[2] & S_ISGID;
- $ugo[2] =~ s/.$/t/ if $det[2] & S_ISVTX;
+ $ugo[0] =~ s/.$/s/ if $det[2] & S_ISUID();
+ $ugo[1] =~ s/.$/s/ if $det[2] & S_ISGID();
+ $ugo[2] =~ s/.$/t/ if $det[2] & S_ISVTX();
my $user = getpwuid($det[4]);
my $grp = getgrgid($det[5]);
$grp = substr($grp, 0, 8) if length($grp) > 8;
More information about the interchange-cvs
mailing list