646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
17 lines
682 B
Diff
17 lines
682 B
Diff
diff --git a/srht-gen-oauth-tok b/srht-gen-oauth-tok
|
|
index a05e209..f2949b5 100755
|
|
--- a/srht-gen-oauth-tok
|
|
+++ b/srht-gen-oauth-tok
|
|
@@ -78,7 +78,10 @@ $mech->submit_form( with_fields => { comment => $tok_comment } );
|
|
|
|
# Parse the response as XML and find the access token via an XPath expression
|
|
my $xpc = XML::LibXML::XPathContext->new(
|
|
- XML::LibXML->load_xml(string => $mech->content())
|
|
+ XML::LibXML->load_html(
|
|
+ string => $mech->content(),
|
|
+ recover => 1,
|
|
+ )
|
|
);
|
|
# The token is set as the description (<dd>) of a 'Personal Access Token' term (<dt>)
|
|
my $token = $xpc->find("//dt[text() = 'Personal Access Token']/following-sibling::dd/*/node()");
|