[131339] users/mojca

[mojca at macports.org]

Revision: 131339
          https://trac.macports.org/changeset/131339
Author:   mojca at macports.org
Date:     2015-01-10 01:21:41 -0800 (Sat, 10 Jan 2015)
Log Message:
-----------
users/mojca: a script used to remove perl branches (#46322)

Added Paths:
-----------
    users/mojca/scripts/
    users/mojca/scripts/remove-perl-branches.py

Added: users/mojca/scripts/remove-perl-branches.py
===================================================================
--- users/mojca/scripts/remove-perl-branches.py	                        (rev 0)
+++ users/mojca/scripts/remove-perl-branches.py	2015-01-10 09:21:41 UTC (rev 131339)
@@ -0,0 +1,40 @@
+#!/usr/bin/env python
+
+import glob
+import re
+
+def replace_perl_versions(filename):
+    print(filename)
+
+    # read the file
+    f = open(filename)
+    lines = f.readlines()
+    f.close()
+
+    # write the file with a changed version string
+    f = open(filename, 'w')
+    for line in lines:
+        match = re.search(r'^perl5.branches\s+(.*)', line)
+        if match:
+            versions_old = match.group(1)
+            # remove 5.8 5.10 5.12 5.14
+            versions_new = re.sub(r'5[.](8|10|12|14)\s+', '', versions_old)
+            # new version string (properly formatted for 20 spaces)
+            line_new     = "perl5.branches      {}".format(versions_new)
+            # just debug output
+            # print(versions_old)
+            # print(versions_new)
+            print(line.strip())
+            print(line_new)
+            print()
+            # write the new version string to the file
+            f.write(line_new + "\n")
+        else:
+            # or write the original line if it wasn't about versions
+            f.write(line)
+    f.close()
+
+
+file_list = glob.glob("perl/p5-*/Portfile")
+for l in file_list:
+    replace_perl_versions(l)


Property changes on: users/mojca/scripts/remove-perl-branches.py
___________________________________________________________________
Added: svn:executable
   + *
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150110/49ebc401/attachment.html>