[23901] users/pipping/find_dependents.pl
source_changes at macosforge.org
source_changes at macosforge.org
Thu Apr 12 10:00:07 PDT 2007
Revision: 23901
http://trac.macosforge.org/projects/macports/changeset/23901
Author: pipping at macports.org
Date: 2007-04-12 10:00:07 -0700 (Thu, 12 Apr 2007)
Log Message:
-----------
* <ignore me>
Modified Paths:
--------------
users/pipping/find_dependents.pl
Modified: users/pipping/find_dependents.pl
===================================================================
--- users/pipping/find_dependents.pl 2007-04-12 16:48:39 UTC (rev 23900)
+++ users/pipping/find_dependents.pl 2007-04-12 17:00:07 UTC (rev 23901)
@@ -10,12 +10,12 @@
my $leading_comment = qr{(?:^|\n)(?>\s*)#(?>.*)};
my $connecting_backslash = qr{\s*\\\n\s*};
-my $quick_check = qr{:$port}i;
+my $quick_check = qr{:$port}io;
my $dependency = qr{
(?=[plb])(?:port|(?:path|lib|bin):[^:]+) # kind
: # separator
(?i:${port})\b # name
- }x;
+ }xo;
$/ = ".\n";
@@ -25,13 +25,13 @@
while (<>) {
# make a quick and dirty check if the port has a remote chance of
# depending on $port
- if ( m{$quick_check}o ) {
+ if ( m{$quick_check} ) {
- s{$connecting_backslash}{ }o; # merge backslash-connected lines
- s{$leading_comment}{}o; # remove leading comments
- s{$trailing_comment}{}o; # remove trailing comments
+ s{$connecting_backslash}{ }; # merge backslash-connected lines
+ s{$leading_comment}{}; # remove leading comments
+ s{$trailing_comment}{}; # remove trailing comments
- if ( m{$dependency}o ) {
+ if ( m{$dependency} ) {
$portfile =~ s{/Portfile$}{}; # remove trailing '/Portfile'
print "$portfile\n";
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070412/f309bfee/attachment.html
More information about the macports-changes
mailing list