- Timestamp:
- 12/19/06 19:36:22 (6 years ago)
- Files:
-
- modules/branches/2.2/publish.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
modules/branches/2.2/publish.pl
r2788 r3382 12 12 $rawname = "unset"; 13 13 while (<FH>) { 14 if ( /<version>(.+)<\/version>/) { $vers = $1; }14 if ($vers == 'unset' && /<version>(.+)<\/version>/) { $vers = $1; } 15 15 if (/<rawname>(.+)<\/rawname>/) { $rawname = $1; } 16 16 $newxml .= $_;
