X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FAltId.pm;fp=lib%2FPublicInbox%2FAltId.pm;h=73fecd5e4cb426f1940ddbfc6c602414ea910b80;hb=9b80f2bedbe5a8a9154dfa0ba3c7e63012287bea;hp=6fdc3a2d4df6c141a8b76181ad30829bf43abeb3;hpb=3ef89f98a662a135ae18dddf3ff3e61e8e3ca996;p=public-inbox.git diff --git a/lib/PublicInbox/AltId.pm b/lib/PublicInbox/AltId.pm index 6fdc3a2d..73fecd5e 100644 --- a/lib/PublicInbox/AltId.pm +++ b/lib/PublicInbox/AltId.pm @@ -9,7 +9,7 @@ use URI::Escape qw(uri_unescape); # spec: TYPE:PREFIX:param1=value1¶m2=value2&... # Example: serial:gmane:file=/path/to/altmsgmap.sqlite3 sub new { - my ($class, $inbox, $spec) = @_; + my ($class, $inbox, $spec, $writable) = @_; my ($type, $prefix, $query) = split(/:/, $spec, 3); $type eq 'serial' or die "non-serial not supported, yet\n"; @@ -25,7 +25,7 @@ sub new { $f = "$inbox->{mainrepo}/public-inbox/$f"; } bless { - mm_alt => PublicInbox::Msgmap->new_file($f), + mm_alt => PublicInbox::Msgmap->new_file($f, $writable), xprefix => 'X'.uc($prefix), }, $class; }