| branch | RCL_3 |
| changeset 73 | 22bdd8a90cc4 |
| parent 18 | 99082257a271 |
| 62:7416fe50a180 | 73:22bdd8a90cc4 |
|---|---|
12 # |
12 # |
13 # Description: |
13 # Description: |
14 # list A.X.aaa for all X (32 chars) when given A.aaa |
14 # list A.X.aaa for all X (32 chars) when given A.aaa |
15 # |
15 # |
16 # |
16 # |
17 |
|
18 use strict; |
|
19 |
17 |
20 my $source = shift; |
18 my $source = shift; |
21 |
19 |
22 # list invariant |
20 # list invariant |
23 print "$source\n" if (-f $source); |
21 print "$source\n" if (-f $source); |