From def4efcd013dab2d39ca559f61df55ff60864157 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 31 Aug 1999 16:48:27 +0000
Subject: no_comment

---
 perl-install/perl2etags | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100755 perl-install/perl2etags

(limited to 'perl-install/perl2etags')

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/;
-- 
cgit v1.2.1