[File-extattr-commits] File-ExtAttr/lib/File ExtAttr.pm,1.16,1.17

[Richard D. <ric...@us...>]

Update of /cvsroot/file-extattr/File-ExtAttr/lib/File
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv9280/lib/File

Modified Files:
	ExtAttr.pm 
Log Message:
First cut of namespace list function for Linux

Index: ExtAttr.pm
===================================================================
RCS file: /cvsroot/file-extattr/File-ExtAttr/lib/File/ExtAttr.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** ExtAttr.pm	30 Sep 2006 22:10:12 -0000	1.16
--- ExtAttr.pm	1 Oct 2006 11:18:54 -0000	1.17
***************
*** 125,129 ****
  # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
  # will save memory.
! our %EXPORT_TAGS = ( 'all' => [ qw( getfattr setfattr delfattr listfattr
  ) ] );
  
--- 125,134 ----
  # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
  # will save memory.
! our %EXPORT_TAGS = ( 'all' => [ qw(
!   getfattr
!   setfattr
!   delfattr
!   listfattr
!   listfattrns
  ) ] );
  
***************
*** 262,266 ****
--- 267,291 ----
          # Filename
          : _listfattr($file, -1, @_);
+ }
+ 
+ =item listfattrns([$filename | $filehandle], [\%flags])
+ 
+ Return a list containing the namespaces of attributes on the file named
+ C<$filename> or referenced by the open filehandle C<$filehandle>
+ (which should be an IO::Handle).
  
+ Returns undef on failure and $! will be set.
+ 
+ =cut
+ 
+ sub listfattrns
+ {
+     my $file = shift;
+ 
+     return _is_fh($file)
+         # File handle
+         ? _listfattrns(undef, $file->fileno(), @_)
+         # Filename
+         : _listfattrns($file, -1, @_);
  }