
| Revision | 163a079a148a1844992825c13ac5c73e66c0b921 (tree) |
|---|---|
| Time | 2022-04-10 15:56:37 |
| Author | |
| Commiter | dyknon |
fix prefix
| @@ -15,7 +15,7 @@ use LWP::UserAgent (); | ||
| 15 | 15 | use HTTP::Date; |
| 16 | 16 | use Data::Dumper; |
| 17 | 17 | |
| 18 | -our $VERSION = "0.001"; | |
| 18 | +our $VERSION = "0.001001"; | |
| 19 | 19 | |
| 20 | 20 | my $download; |
| 21 | 21 | my $src_spec; |
| @@ -493,13 +493,13 @@ if($op eq "generate"){ | ||
| 493 | 493 | |
| 494 | 494 | if($address_sort){ |
| 495 | 495 | for(@formats){ |
| 496 | - write_it($reglist{$k}, "$k.$_", $formatters{$_}->($k)); | |
| 496 | + write_it($reglist{$k}, "$prefix$k.$_", $formatters{$_}->($k)); | |
| 497 | 497 | } |
| 498 | 498 | } |
| 499 | 499 | if($region_sort){ |
| 500 | 500 | $reglist{$k}->@* = sort_by($reglist{$k}, qw(region start)); |
| 501 | 501 | for(@formats){ |
| 502 | - write_it($reglist{$k}, "$k-ccsort.$_", $formatters{$_}->($k)); | |
| 502 | + write_it($reglist{$k}, "$prefix$k-ccsort.$_", $formatters{$_}->($k)); | |
| 503 | 503 | } |
| 504 | 504 | } |
| 505 | 505 | } |