| branch | RCL_3 |
| changeset 73 | 22bdd8a90cc4 |
| parent 18 | 99082257a271 |
| 62:7416fe50a180 | 73:22bdd8a90cc4 |
|---|---|
13 # Description: |
13 # Description: |
14 # copy A.X.aaa to B.X.bbb for all X (32 chars) when given A.aaa B.bbb |
14 # copy A.X.aaa to B.X.bbb for all X (32 chars) when given A.aaa B.bbb |
15 # |
15 # |
16 # |
16 # |
17 |
17 |
18 use strict; |
|
19 |
18 |
20 my $source = shift; |
19 my $source = shift; |
21 my $target = shift; |
20 my $target = shift; |
22 |
21 |
23 my $errs = 0; |
22 my $errs = 0; |