Changeset 5fcf137 for perl/modules/AIM/lib/Net/OSCAR/XML.pm

Timestamp:

Jun 1, 2008, 4:02:46 AM (16 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

barnowl_perlaim

Children:

403198c

Parents:

a1c2f06

Message:

Potential fix to Net::OSCAR to make it deal with coderefs in @INC

File:

• perl/modules/AIM/lib/Net/OSCAR/XML.pm (modified) (1 diff)

perl/modules/AIM/lib/Net/OSCAR/XML.pm

@@ -51 +51 @@
         if(!$NO_XML_CACHE) {
                 foreach (@INC) {
-                        next unless -f "$_/Net/OSCAR/XML/Protocol.parsed-xml";
-
-                        open(XMLCACHE, "$_/Net/OSCAR/XML/Protocol.parsed-xml") or next;
+                        next unless ref($_) eq 'CODE' || -f "$_/Net/OSCAR/XML/Protocol.parsed-xml";
+
+                        if (ref($_) eq 'CODE') {
+                                *XMLCACHE = $_->($_, 'Net/OSCAR/XML/Protocol.parsed-xml');
+                                next if (\*XMLCACHE == undef);
+                        } else {
+                                open(XMLCACHE, "$_/Net/OSCAR/XML/Protocol.parsed-xml") or next;
+                        }
                         my $xmlcache = join("", <XMLCACHE>);
                         close(XMLCACHE);