branch | RCL_3 |
changeset 16 | 22bdd8a90cc4 |
parent 2 | 99082257a271 |
13:7416fe50a180 | 16: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); |