[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[GT] SVN Commit r704 - branches/CPAN/lib/Finance/GeniusTrader

Author: clkao
Date: 2009-11-06 14:38:09 +0100 (Fri, 06 Nov 2009)
New Revision: 704

Modified:
   branches/CPAN/lib/Finance/GeniusTrader/Tools.pm
Log:
Merge branch 'CPAN/topic/alias'

* CPAN/topic/alias:
  make alias arg >= 10 work.

Modified: branches/CPAN/lib/Finance/GeniusTrader/Tools.pm
===================================================================
--- branches/CPAN/lib/Finance/GeniusTrader/Tools.pm	2009-11-06 13:37:06 UTC (rev 703)
+++ branches/CPAN/lib/Finance/GeniusTrader/Tools.pm	2009-11-06 13:38:09 UTC (rev 704)
@@ -188,7 +188,7 @@
     my $n = 1;
     foreach (@param)
     {
-	$sysname =~ s/#$n/$_/g;
+	$sysname =~ s/#$n(\D)/$_$1/g;
 	$n++;
     }