Check is_success for Mojo upload

briandfoy · briandfoy · commit 78695c91477c · 2023-03-09T06:02:30.000-05:00
diff --git a/lib/Module/Release/WebUpload/Mojo.pm b/lib/Module/Release/WebUpload/Mojo.pm
@@ -65,7 +65,8 @@ sub web_upload {
 		 form => $params,
 		 );
 
-	if( my $res = eval { $tx->result } ) {
+	if( my $res = eval { $tx->result->is_success } ) {
+		$self->_debug( "Response headers:\n" . $tx->result->res->to_string . "\n" );
 		$self->_print( "File uploaded\n" );
 		return 1;
 		}

Original file line number	Diff line number	Diff line change
`@@ -65,7 +65,8 @@ sub web_upload {`
`65`	`65`	`form => $params,`
`66`	`66`	`);`
`67`	`67`
`68`		`- if( my $res = eval { $tx->result } ) {`
	`68`	`+ if( my $res = eval { $tx->result->is_success } ) {`
	`69`	`+ $self->_debug( "Response headers:\n" . $tx->result->res->to_string . "\n" );`
`69`	`70`	`$self->_print( "File uploaded\n" );`
`70`	`71`	`return 1;`
`71`	`72`	`}`