| branch | RCL_3 |
| changeset 73 | 22bdd8a90cc4 |
| parent 18 | 99082257a271 |
| 62:7416fe50a180 | 73:22bdd8a90cc4 |
|---|---|
12 # |
12 # |
13 # Description: |
13 # Description: |
14 # delete A.X.aaa for all X (32 chars) when given A.aaa |
14 # delete 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 # delete invariant |
20 # delete invariant |
23 unlink($source) if (-f $source); |
21 unlink($source) if (-f $source); |