[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