Added a comment: i sign stuff

[git.ikiwiki.info.git] / IkiWiki / Plugin / highlight.pm

diff --git a/IkiWiki/Plugin/highlight.pm b/IkiWiki/Plugin/highlight.pm
index ce919748a4d10c6308cea7c1ea6559c47c608534..c974db56227d67da0fb1f99b00d2fbad4a0ba2ef 100644 (file)
--- a/IkiWiki/Plugin/highlight.pm
+++ b/IkiWiki/Plugin/highlight.pm
@@ -54,7 +54,13 @@ sub checkconfig () {
        eval q{use highlight};
        if (highlight::DataDir->can('new')) {
                $data_dir=new highlight::DataDir();
        eval q{use highlight};
        if (highlight::DataDir->can('new')) {
                $data_dir=new highlight::DataDir();

-               $data_dir->searchDataDir("");
+               if ( $data_dir->can('initSearchDirectories') ) {
+                       # 4.0+
+                       $data_dir -> initSearchDirectories("");
+               } else {
+                       # pre-4.0
+                       $data_dir -> searchDataDir("");
+               }

        } else {
                $data_dir=undef;
        }
        } else {
                $data_dir=undef;
        }


@@ -62,10 +68,10 @@ sub checkconfig () {
        if (! exists $config{filetypes_conf}) {
          if (! $data_dir ) {
                $config{filetypes_conf}= "/etc/highlight/filetypes.conf";
        if (! exists $config{filetypes_conf}) {
          if (! $data_dir ) {
                $config{filetypes_conf}= "/etc/highlight/filetypes.conf";

-             } elsif ( $data_dir -> can('searchFile') ) {
-               # 3.18 +
+             } elsif ( $data_dir -> can('getFiletypesConfPath') ) {
+               # 3.14 +

                $config{filetypes_conf}=
                $config{filetypes_conf}=

-                 $data_dir -> searchFile("filetypes.conf");
+                 $data_dir -> getFiletypesConfPath("filetypes");

              } else {
                # 3.9 +
                $config{filetypes_conf}=
              } else {
                # 3.9 +
                $config{filetypes_conf}=


@@ -201,7 +207,9 @@ sub highlight ($$) {
 
        my $gen;
        if (! exists $highlighters{$langfile}) {
 
        my $gen;
        if (! exists $highlighters{$langfile}) {

+               no warnings 'once';

                $gen = highlight::CodeGenerator::getInstance($highlight::XHTML);
                $gen = highlight::CodeGenerator::getInstance($highlight::XHTML);

+               use warnings;

                $gen->setFragmentCode(1); # generate html fragment
                $gen->setHTMLEnclosePreTag(1); # include stylish <pre>
                if ($data_dir){
                $gen->setFragmentCode(1); # generate html fragment
                $gen->setHTMLEnclosePreTag(1); # include stylish <pre>
                if ($data_dir){