Check-in Number:
|
114 | |
Date: |
2000-Jul-17 17:45:33 (local)
2000-Jul-17 15:45:33 (UTC) |
User: | rse |
Branch: | |
Comment: |
Update Shiela |
Tickets: |
|
Inspections: |
|
Files: |
|
CVSROOT/shiela 1.4 -> 1.5
--- shiela 2000/06/18 14:33:23 1.4
+++ shiela 2000/07/18 15:45:33 1.5
@@ -1376,7 +1376,7 @@
@cvsinfo = ();
$cvsmsg =~ s|Status:\n+Vendor Tag:\s+(\S+).*?\nRelease Tags:\s+(.+?)\s*\n(.+)$||s;
my ($It, $IT, $list) = ($1, $2, $3);
- $cvsmsg .= "[Release Tags: $IT]\n";
+ $cvsmsg .= sprintf("[Release Tag%s: %s]\n", ($IT =~ m|\s| ? 's' : ''), $IT);
while ($list =~ s|\n([ILNUCT])\s+(\S+)||s) {
my ($Io, $Is) = ($1, $2);
|
|