From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

NCLEATON / Lchown-1.01 / lib / Lchown.pm 

            

              
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