[interchange] Adjust relocate.pl to optionally remove the commented indicator line

David Christensen interchange-cvs at icdevgroup.org
Thu Nov 2 19:24:26 UTC 2017


commit 29b703829c325ae5222c93ee59e4ca307610c8aa
Author: David Christensen <david at endpoint.com>
Date:   Thu Nov 2 12:06:34 2017 -0500

    Adjust relocate.pl to optionally remove the commented indicator line

 relocate.pl |   27 ++++++++++++++++++++++++---
 1 files changed, 24 insertions(+), 3 deletions(-)
---
diff --git a/relocate.pl b/relocate.pl
index ac9617e..cfce340 100644
--- a/relocate.pl
+++ b/relocate.pl
@@ -9,8 +9,29 @@
 
 =for example
 
-use lib '/home/jon/interchange/lib';
-#use lib '~_~INSTALLPRIVLIB~_~';
+Original:
+
+  #use lib '~_~INSTALLPRIVLIB~_~';
+
+Output:
+
+  use lib '/home/jon/interchange/lib';
+  #use lib '~_~INSTALLPRIVLIB~_~';
+
+=cut
+
+# If the leading comment starts with #- then the output of the original
+# commented line will be suppressed.
+
+=for example
+
+Original:
+
+  #-use lib '~_~INSTALLPRIVLIB~_~';
+
+Output:
+
+  use lib '/home/jon/interchange/lib';
 
 =cut
 
@@ -46,7 +67,7 @@ DOIT: {
 	@ARGV = ($input) if $input;
 	local ($_) = <>;
 
-	s{.*\n(#(.*)~_~(\w+)~_~(.*))}{$2 . doit($3) . "$4\n$1"}eg;
+	s{.*\n(#(-?)(.*)~_~(\w+)~_~(.*))}{$3 . doit($4) . $5 . ($2 ? '' : "\n$1" )}eg;
 
 	if ($output) {
 		open STDOUT, ">$output" or die "Error creating $output: $!\n";



More information about the interchange-cvs mailing list