[23758] users/pipping/test.pl

source_changes at macosforge.org source_changes at macosforge.org
Sun Apr 8 19:20:00 PDT 2007


Revision: 23758
          http://trac.macosforge.org/projects/macports/changeset/23758
Author:   pipping at macports.org
Date:     2007-04-08 19:19:59 -0700 (Sun, 08 Apr 2007)

Log Message:
-----------
 * fix indentation

Modified Paths:
--------------
    users/pipping/test.pl

Modified: users/pipping/test.pl
===================================================================
--- users/pipping/test.pl	2007-04-09 00:49:50 UTC (rev 23757)
+++ users/pipping/test.pl	2007-04-09 02:19:59 UTC (rev 23758)
@@ -1,4 +1,4 @@
-#! /usr/bin/env perl -w
+#! /usr/bin/env perl
 
 use strict;
 use warnings;
@@ -7,8 +7,7 @@
 
 my $port = $ARGV[0];
 
-while (defined(my $portfile = <*/*/Portfile>)) {
-
+while (defined(my $portfile = <*/*/Portfile>)) { 
   @ARGV = $portfile;
 
   while (<>) {
@@ -16,20 +15,20 @@
     # depending on $port
     if ($_ =~ m{
         :$port
-    }ix)
-    {
+        }ix) {
       # concatenate lines connected through trailing backslashes
       s{\s*\\\n\s*}{ }mgi;
+
       # remove comments with whitespace in front
       s{(?:^|\n)\s*#.*}{}g;
+
       # remove trailing comments
       s{;\s*#.*}{}g;
 
       if ($_ =~ m{
-        depends_(?:build|run|lib)(?:-(?:append|delete))?
-        .*
-        (?:port|(?:path|lib|bin):[^:]+):(?i:${port})(?:\s|$)}x)
-      {
+          depends_(?:build|run|lib)(?:-(?:append|delete))?
+          .*
+          (?:port|(?:path|lib|bin):[^:]+):(?i:${port})(?:\s|$)}x) {
         # remove trailing '/Portfile' in the path
         $portfile =~ s{\/Portfile$}{};
         print "$portfile\n";

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070408/cb31cbc1/attachment.html


More information about the macports-changes mailing list