Changeset 16890 for lang/perl/Dist-Joseki

Timestamp:

07/30/08 23:05:47 (5 years ago)

Author:

hanekomu

Message:

ptags: Respect @Devel::SearchINC::PATHS

Files:

• lang/perl/Dist-Joseki/trunk/bin/ptags (modified) (1 diff)

lang/perl/Dist-Joseki/trunk/bin/ptags

@@ -40 +40 @@
 # see the ptags_sort program.
 
-our @lib = grep { !/^\.+$/ } reverse @INC;
+our @lib = grep { !/^\.+$/ } grep { ref ne 'CODE' } reverse @INC;
+{
+    no warnings 'once';
+    unshift @lib => @Devel::SearchINC::PATHS;
+}
+
 exit unless @lib;