Commits

Shlomi Fish committed 4eb6f76

Refactoring: convert <<EOF to <<"EOF" in Makefile.PL.

It's hard to remember whether <<EOF is <<'EOF' or <<"EOF".

  • Participants
  • Parent commits 71edbe9

Comments (0)

Files changed (1)

             }
             if ( $@ =~ /^UNTESTED (\S*)/ ) {
                 warn "Note: libxml2 $1 was not tested with this XML::LibXML version.\n"
-#                 warn <<UNTESTED;
+#                 warn <<"UNTESTED";
 # WARNING!
 # The installed version of libxml2 was not tested with this version of XML::LibXML.
 
                 warn "\nusing fallback values for LIBS and INC\n";
                 $config{LIBS} = '-L/usr/local/lib -L/usr/lib -lxml2 -lm';
                 $config{INC} = '-I/usr/local/include -I/usr/include';
-                print <<OPT;
+                print <<"OPT";
 options:
   LIBS='$config{LIBS}'
   INC='$config{INC}'
                          [0,7,2,0],
                          [0,7,3,1],
                         );
-        print <<GDOME;
+        print <<"GDOME";
 
 GDOME Support (experimental):
    XML::LibXML can parse into XML::GDOME DOMs if libgdome is installed.
 # -------------------------------------------------------------------------- #
 # test if the libraries are really installed!
 unless (have_library("xml2") or have_library("libxml2")) {
-    print STDERR <<DEATH;
+    print STDERR <<"DEATH";
 libxml2, zlib, and/or the Math library (-lm) have not been found.
 Try setting LIBS and INC values on the command line
 Or get libxml2 from 
     my $str = shift->SUPER::manifypods(@_);
 #    warn $str;
 #    $str =~ s/^manifypods : pure_all (.*)$/manifypods : pure_all docs $1/m;
-    $str .= <<EOF;
+    $str .= <<"EOF";
 
 docs-fast :
 \t\@$^X -pi~ -e 's{<edition>[0-9.]*</edition>}{<edition>'"\$(VERSION)"'</edition>}' docs/libxml.dbk
     {
         open(my $cfile, '>', 'Conftest.xs') 
             or die "Cannot write to file Conftest.xs: $!";
-        print {$cfile} <<EOT;
+        print {$cfile} <<"EOT";
 #ifdef __cplusplus
 extern "C" {
 #endif
 
 EOT
         print {$cfile} $src;
-        print {$cfile} <<EOT;
+        print {$cfile} <<"EOT";
 
 MODULE = Conftest          PACKAGE = Conftest
 
     {
         open(my $cfile, ">test.pl") 
             or die "Cannot write to file test.pl: $!";
-        print {$cfile} <<EOT;
+        print {$cfile} <<"EOT";
 use Test; BEGIN { plan tests => 1; } END { ok(\$loaded) }
 use Conftest; \$loaded++;
 EOT