r32241 - in /trunk/libfile-libmagic-perl: const-c.inc const-xs.inc

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Sat Mar 21 04:46:50 2009
New Revision: 32241

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32241
Log:
revert changes that I somehow made..

Modified:
    trunk/libfile-libmagic-perl/const-c.inc
    trunk/libfile-libmagic-perl/const-xs.inc

Modified: trunk/libfile-libmagic-perl/const-c.inc
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-libmagic-perl/const-c.inc?rev=32241&op=diff
==============================================================================
--- trunk/libfile-libmagic-perl/const-c.inc (original)
+++ trunk/libfile-libmagic-perl/const-c.inc Sat Mar 21 04:46:50 2009
@@ -77,7 +77,7 @@
      Regenerate these constant functions by feeding this entire source file to
      perl -x
 
-#!/usr/bin/perl -w
+#!/usr/bin/perl5.8.8 -w
 use ExtUtils::Constant qw (constant_types C_constant XS_constant);
 
 my $types = {map {($_, 1)} qw(IV)};
@@ -85,11 +85,11 @@
 	       MAGIC_DEVICES MAGIC_ERROR MAGIC_MIME MAGIC_NONE
 	       MAGIC_PRESERVE_ATIME MAGIC_RAW MAGIC_SYMLINK));
 
-print constant_types(), "\n"; # macro defs
+print constant_types(); # macro defs
 foreach (C_constant ("File::LibMagic", 'constant', 'IV', $types, undef, 3, @names) ) {
     print $_, "\n"; # C constant subs
 }
-print "\n#### XS Section:\n";
+print "#### XS Section:\n";
 print XS_constant ("File::LibMagic", $types);
 __END__
    */

Modified: trunk/libfile-libmagic-perl/const-xs.inc
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-libmagic-perl/const-xs.inc?rev=32241&op=diff
==============================================================================
--- trunk/libfile-libmagic-perl/const-xs.inc (original)
+++ trunk/libfile-libmagic-perl/const-xs.inc Sat Mar 21 04:46:50 2009
@@ -22,14 +22,12 @@
            Second, if present, is found value */
         switch (type) {
         case PERL_constant_NOTFOUND:
-          sv =
-	    sv_2mortal(newSVpvf("%s is not a valid File::LibMagic macro", s));
+          sv = sv_2mortal(newSVpvf("%s is not a valid File::LibMagic macro", s));
           PUSHs(sv);
           break;
         case PERL_constant_NOTDEF:
           sv = sv_2mortal(newSVpvf(
-	    "Your vendor has not defined File::LibMagic macro %s, used",
-				   s));
+	    "Your vendor has not defined File::LibMagic macro %s, used", s));
           PUSHs(sv);
           break;
         case PERL_constant_ISIV: