From: Richard D. <ric...@us...> - 2006-08-19 18:34:46
|
Update of /cvsroot/file-extattr/File-ExtAttr In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv10710 Modified Files: ExtAttr.xs Makefile.PL Log Message: Remove code for constants -- it's not needed, now we have portable flags Index: ExtAttr.xs =================================================================== RCS file: /cvsroot/file-extattr/File-ExtAttr/ExtAttr.xs,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** ExtAttr.xs 19 Aug 2006 18:27:18 -0000 1.18 --- ExtAttr.xs 19 Aug 2006 18:34:42 -0000 1.19 *************** *** 7,12 **** #include "portable.h" - /* NB: Include this after portable.h (or <sys/xattr.h>) */ - #include "const-c.inc" #define MAX_INITIAL_VALUELEN_VARNAME "File::ExtAttr::MAX_INITIAL_VALUELEN" --- 7,10 ---- *************** *** 16,21 **** MODULE = File::ExtAttr PACKAGE = File::ExtAttr - INCLUDE: const-xs.inc - PROTOTYPES: ENABLE --- 14,17 ---- Index: Makefile.PL =================================================================== RCS file: /cvsroot/file-extattr/File-ExtAttr/Makefile.PL,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Makefile.PL 20 Jan 2006 22:43:37 -0000 1.5 --- Makefile.PL 19 Aug 2006 18:34:42 -0000 1.6 *************** *** 46,72 **** # OBJECT => '$(O_FILES)', # link all the C files too ); - if (eval {require ExtUtils::Constant; 1}) { - # If you edit these definitions to change the constants used by this module, - # you will need to use the generated const-c.inc and const-xs.inc - # files to replace their "fallback" counterparts before distributing your - # changes. - my @names = (qw(XATTR_CREATE XATTR_REPLACE)); - ExtUtils::Constant::WriteConstants( - NAME => 'File::ExtAttr', - NAMES => \@names, - DEFAULT_TYPE => 'IV', - C_FILE => 'const-c.inc', - XS_FILE => 'const-xs.inc', - ); - - } - else { - use File::Copy; - use File::Spec; - foreach my $file ('const-c.inc', 'const-xs.inc') { - my $fallback = File::Spec->catfile('fallback', $file); - copy ($fallback, $file) or die "Can't copy $fallback to $file: $!"; - } - } --- 46,49 ---- |