[File-extattr-commits] File-Attributes-Extended/lib/File/Attributes Extended.pm, 1.1.1.1, 1.2

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

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

Modified Files:
	Extended.pm 
Log Message:
Module basically works

Index: Extended.pm
===================================================================
RCS file: /cvsroot/file-extattr/File-Attributes-Extended/lib/File/Attributes/Extended.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** Extended.pm	14 Jul 2006 22:25:13 -0000	1.1.1.1
--- Extended.pm	5 Oct 2006 21:45:12 -0000	1.2
***************
*** 19,23 ****
  use warnings;
  use base qw(File::Attributes::Base);
! use File::ExtAttr qw(getfattr setfattr delfattr listfattr);
  
  our $VERSION = '0.01';
--- 19,23 ----
  use warnings;
  use base qw(File::Attributes::Base);
! use File::ExtAttr 1.01 qw(getfattr setfattr delfattr listfattr);
  
  our $VERSION = '0.01';
***************
*** 25,29 ****
  sub applicable {
      # XXX: OS check; probably needs some helper function in File::ExtAttr.
!     return 1;
  }
  
--- 25,42 ----
  sub applicable {
      # XXX: OS check; probably needs some helper function in File::ExtAttr.
!     # But using what context? This may be path-dependent.
!     #
!     # For now, just assume that it's support on the operating systems
!     # that File::ExtAttr 1.0.1 supports.
!     my %supported = (
!         'linux' => 1,
!         'darwin' => 1, # Mac OS X
!         'freebsd' => 1,
!         'openbsd' => 1,
!         # NetBSD?
!         'solaris' => 1,
!     );
! 
!     return $supported{$^O} || 0;
  }
  
***************
*** 35,39 ****
  
      # XXX: This requires File::ExtAttr to support exceptions.
!     return getattr($file, $attr);
  }
  
--- 48,52 ----
  
      # XXX: This requires File::ExtAttr to support exceptions.
!     return getfattr($file, $attr);
  }
  
***************
*** 46,50 ****
  
      # XXX: This requires File::ExtAttr to support exceptions.
!     setfattr($file, $attr, $value);
  }
  
--- 59,63 ----
  
      # XXX: This requires File::ExtAttr to support exceptions.
!     return setfattr($file, $attr, $value);
  }
  
***************
*** 56,60 ****
  
      # XXX: This requires File::ExtAttr to support exceptions.
!     delfattr($file, $attr);
  }
  
--- 69,73 ----
  
      # XXX: This requires File::ExtAttr to support exceptions.
!     return delfattr($file, $attr);
  }