/usr/lib/perl5/Lchown.pm is in liblchown-perl 1.01-1build3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | package Lchown;
use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(lchown);
@EXPORT_OK = qw(lchown LCHOWN_AVAILABLE);
$VERSION = '1.01';
require XSLoader;
XSLoader::load('Lchown', $VERSION);
sub LCHOWN_AVAILABLE () {
defined lchown(0,0) ? 1 : 0;
}
1;
__END__
=head1 NAME
Lchown - use the lchown(2) system call from Perl
=head1 SYNOPSIS
use Lchown;
lchown $uid, $gid, 'foo' or die "lchown: $!";
my $count = lchown $uid, $gid, @filenames;
# or
use Lchown qw(lchown LCHOWN_AVAILABLE);
warn "this system lacks the lchown system call\n" unless LCHOWN_AVAILABLE;
...
# or
use Lchown ();
warn "this won't work\n" unless Lchown::LCHOWN_AVAILABLE;
Lchown::lchown $uid, $gid, 'foo' or die "lchown: $!";
=head1 DESCRIPTION
Provides a perl interface to the C<lchown()> system call, on platforms that
support it.
=head1 DEFAULT EXPORTS
The following symbols are exported be default:
=over
=item lchown (LIST)
Like the C<chown> builtin, but using the C<lchown()> system call so that
symlinks will not be followed. Returns the number of files successfully
changed.
On systems without the C<lchown()> system call, C<lchown> always returns
C<undef> and sets C<errno> to C<ENOSYS> (Function not implemented).
=back
=head1 ADDITIONAL EXPORTS
The following symbols are available for export but are not exported by
default:
=over
=item LCHOWN_AVAILABLE ()
Returns true on platforms with the C<lchown()> system call, and false on
platforms without.
=back
=head1 SEE ALSO
L<perlfunc/chown>, L<lchown(2)>
=head1 AUTHOR
Nick Cleaton E<lt>nick@cleaton.netE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2003-2009 Nick Cleaton, all rights reserved.
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
|