Typographical cleanup only.

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index 39d5a3e..7028dd7 100644 (file)
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
@@ -1775,7 +1775,7 @@ sub generate_init {
     }
     else {
       eval qq/print "\\t$var;\\n"/;
-      warn $@   if  $@;
+      warn $@ if $@;
     }
     if ($defaults{$var} eq 'NO_INIT') {
       $deferred .= eval qq/"\\n\\tif (items >= $num) {\\n$expr;\\n\\t}\\n"/;
@@ -1783,7 +1783,7 @@ sub generate_init {
     else {
       $deferred .= eval qq/"\\n\\tif (items < $num)\\n\\t    $var = $defaults{$var};\\n\\telse {\\n$expr;\\n\\t}\\n"/;
     }
-    warn $@   if  $@;
+    warn $@ if $@;
   }
   elsif ($ScopeThisXSUB or $expr !~ /^\s*\$var =/) {
     if ($printed_name) {
@@ -1791,16 +1791,16 @@ sub generate_init {
     }
     else {
       eval qq/print "\\t$var;\\n"/;
-      warn $@   if  $@;
+      warn $@ if $@;
     }
     $deferred .= eval qq/"\\n$expr;\\n"/;
-    warn $@   if  $@;
+    warn $@ if $@;
   }
   else {
     die "panic: do not know how to handle this branch for function pointers"
       if $printed_name;
     eval qq/print "$expr;\\n"/;
-    warn $@   if  $@;
+    warn $@ if $@;
   }
 }
 
@@ -1837,7 +1837,7 @@ sub generate_output {
       $subexpr =~ s/\n\t/\n\t\t/g;
       $expr =~ s/DO_ARRAY_ELEM\n/$subexpr/;
       eval "print qq\a$expr\a";
-      warn $@   if  $@;
+      warn $@ if $@;
       print "\t\tSvSETMAGIC(ST(ix_$var));\n" if $do_setmagic;
     }
     elsif ($var eq 'RETVAL') {
@@ -1845,7 +1845,7 @@ sub generate_output {
         # We expect that $arg has refcnt 1, so we need to
         # mortalize it.
         eval "print qq\a$expr\a";
-        warn $@   if  $@;
+        warn $@ if $@;
         print "\tsv_2mortal(ST($num));\n";
         print "\tSvSETMAGIC(ST($num));\n" if $do_setmagic;
       }
@@ -1853,7 +1853,7 @@ sub generate_output {
         # We expect that $arg has refcnt >=1, so we need
         # to mortalize it!
         eval "print qq\a$expr\a";
-        warn $@   if  $@;
+        warn $@ if $@;
         print "\tsv_2mortal(ST(0));\n";
         print "\tSvSETMAGIC(ST(0));\n" if $do_setmagic;
       }
@@ -1864,7 +1864,7 @@ sub generate_output {
         # works too.
         print "\tST(0) = sv_newmortal();\n";
         eval "print qq\a$expr\a";
-        warn $@   if  $@;
+        warn $@ if $@;
         # new mortals don't have set magic
       }
     }
@@ -1872,12 +1872,12 @@ sub generate_output {
       print "\tPUSHs(sv_newmortal());\n";
       $arg = "ST($num)";
       eval "print qq\a$expr\a";
-      warn $@   if  $@;
+      warn $@ if $@;
       print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
     }
     elsif ($arg =~ /^ST\(\d+\)$/) {
       eval "print qq\a$expr\a";
-      warn $@   if  $@;
+      warn $@ if $@;
       print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
     }
   }