lib/PublicInbox/URIimap.pm | 1 + t/uri_imap.t | 1 + xt/net_writer-imap.t | 2 +- diff --git a/lib/PublicInbox/URIimap.pm b/lib/PublicInbox/URIimap.pm index ab0908b7197941ecbacc47fdd676b9b20af1b1d3..db84ee5ef61ed4b53cfe4c0239295f32ca8a7f28 100644 --- a/lib/PublicInbox/URIimap.pm +++ b/lib/PublicInbox/URIimap.pm @@ -13,6 +13,7 @@ package PublicInbox::URIimap; use strict; use URI::Split qw(uri_split uri_join); # part of URI use URI::Escape qw(uri_unescape); +use overload '""' => \&as_string; my %default_ports = (imap => 143, imaps => 993); diff --git a/t/uri_imap.t b/t/uri_imap.t index 6c4207c3aefaf6e2e20cbc4022554ce110f95b94..f7c7866535503da5ce7cb5930ec3f8df8f9aabe6 100644 --- a/t/uri_imap.t +++ b/t/uri_imap.t @@ -19,6 +19,7 @@ is($uri->auth, undef); is($uri->user, undef); $uri = PublicInbox::URIimap->new('imaps://foo@0/'); +is("$uri", $uri->as_string, '"" overload works'); is($uri->host, '0', 'numeric host'); is($uri->user, 'foo', 'user extracted'); diff --git a/xt/net_writer-imap.t b/xt/net_writer-imap.t index ea812f16db9d8019acd5bd17d8c74a626b976b8d..dfd765be7a70699883e017e8102da99b9dd77856 100644 --- a/xt/net_writer-imap.t +++ b/xt/net_writer-imap.t @@ -29,7 +29,7 @@ $nwr->{pi_cfg} = bless {}, 'PublicInbox::Config'; my $mics = $nwr->imap_common_init; my $mic = (values %$mics)[0]; my $cleanup = PublicInbox::OnDestroy->new(sub { - $mic->delete($folder) or fail "delete $folder <$$folder_uri>: $@"; + $mic->delete($folder) or fail "delete $folder <$folder_uri>: $@"; }); my $imap_append = $nwr->can('imap_append'); my $smsg = bless { kw => [ 'seen' ] }, 'PublicInbox::Smsg';