|
Last change
on this file since 34019 was
10454,
checked in by Dirk Stoecker, 11 years ago
|
|
allow multi-revision based plugin revision
|
-
Property svn:executable set to
*
|
|
File size:
353 bytes
|
| Line | |
|---|
| 1 | #! /usr/bin/perl |
|---|
| 2 | |
|---|
| 3 | my $checkrev = qr/commit[ \n]+revision=\"(\d+)\">/; |
|---|
| 4 | my $text = `svn info --xml .`; |
|---|
| 5 | my $revision = $1 if $text =~ $checkrev; |
|---|
| 6 | foreach my $file (@ARGV) |
|---|
| 7 | { |
|---|
| 8 | my $ftext = `svn info --xml $file`; |
|---|
| 9 | my $frevision = $1 if $ftext =~ $checkrev; |
|---|
| 10 | if($frevision > $revision) |
|---|
| 11 | { |
|---|
| 12 | $text = $ftext; |
|---|
| 13 | $revision = $frevision; |
|---|
| 14 | } |
|---|
| 15 | } |
|---|
| 16 | |
|---|
| 17 | print $text; |
|---|
Note: See
TracBrowser
for help on using the repository browser.
