1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/perl2etags b/perl-install/perl2etags
new file mode 100755
index 000000000..7a15bf78c
--- /dev/null
+++ b/perl-install/perl2etags
@@ -0,0 +1,8 @@
+#!/usr/bin/perl -p
+
+if (/^/ ... !/^/) {
+    ($package) = /(.*).pm,/;
+    $package =~ s|/|::|g;
+}
+
+s/(\x7F)sub\s+(\w+)(\([^)]*\))?/$1${package}::$2/;