summaryrefslogtreecommitdiff
path: root/Porting
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-10-12 00:23:11 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-10-12 00:23:11 +0000
commit04dc9db9ad04317b0c2997dfa065b4061e90e683 (patch)
tree94dc9f00e4547486e2a3bf5b096a896bc1fc8159 /Porting
parente69129f12231d0e94f3df54c4dc907ba95153319 (diff)
downloadperl-04dc9db9ad04317b0c2997dfa065b4061e90e683.tar.gz
update Changes, patchlevel etc.
p4raw-id: //depot/perl@4349
Diffstat (limited to 'Porting')
-rwxr-xr-xPorting/findvars20
1 files changed, 11 insertions, 9 deletions
diff --git a/Porting/findvars b/Porting/findvars
index b91753bbbe..3cdb854614 100755
--- a/Porting/findvars
+++ b/Porting/findvars
@@ -11,15 +11,17 @@ chop $pat if $pat =~ /\|$/;
# grep
while (<>) {
- if (/^(.*?)\b($pat)\b(.*)$/o) {
- my $head = "$1#$2#";
- $_ = $3;
- while (/^(.*?)\b($pat)\b(.*)$/o) {
- $head .= "$1#$2#";
- $_ = $3;
- }
- print "$ARGV\:$.\:$head$_\n";
- }
+ print "$ARGV\:$.\:$_" if s/\b($pat)\b/#$1#/og;
+# this variant might useful if the transformation is more complicated
+# if (/^(.*?)\b($pat)\b(.*)$/o) {
+# my $head = "$1#$2#";
+# $_ = $3;
+# while (/^(.*?)\b($pat)\b(.*)$/o) {
+# $head .= "$1#$2#";
+# $_ = $3;
+# }
+# print "$ARGV\:$.\:$head$_\n";
+# }
}
continue {
close ARGV if eof;