[File-extattr-commits] File-ExtAttr/lib/File ExtAttr.pm,1.14,1.15

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

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

Modified Files:
	ExtAttr.pm 
Log Message:
Remove code for constants -- it's not needed, now we have portable flags

Index: ExtAttr.pm
===================================================================
RCS file: /cvsroot/file-extattr/File-ExtAttr/lib/File/ExtAttr.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** ExtAttr.pm	19 Aug 2006 18:27:18 -0000	1.14
--- ExtAttr.pm	19 Aug 2006 18:34:42 -0000	1.15
***************
*** 138,164 ****
  $File::ExtAttr::MAX_INITIAL_VALUELEN = 255;
  
- sub AUTOLOAD {
-     # This AUTOLOAD is used to 'autoload' constants from the constant()
-     # XS function.
- 
-     my $constname;
-     our $AUTOLOAD;
-     ($constname = $AUTOLOAD) =~ s/.*:://;
-     croak "&File::ExtAttr::constant not defined" if $constname eq 'constant';
-     my ($error, $val) = constant($constname);
-     if ($error) { croak $error; }
-     {
- 	no strict 'refs';
- 	# Fixed between 5.005_53 and 5.005_61
- #XXX	if ($] >= 5.00561) {
- #XXX	    *$AUTOLOAD = sub () { $val };
- #XXX	}
- #XXX	else {
- 	    *$AUTOLOAD = sub { $val };
- #XXX	}
-     }
-     goto &$AUTOLOAD;
- }
- 
  require XSLoader;
  XSLoader::load('File::ExtAttr', $VERSION);
--- 138,141 ----