"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Vend/Parse.pm" between
interchange-5.8.2.tar.gz and interchange-5.10.0.tar.gz

About: Interchange is an Electronic commerce system (supports SSL, PGP/GPG).

Parse.pm  (interchange-5.8.2)	:	Parse.pm  (interchange-5.10.0)
skipping to change at line 775		skipping to change at line 775
#::logDebug("bouncing...status line=\n$Vend::StatusLine");		#::logDebug("bouncing...status line=\n$Vend::StatusLine");
$$buf = '';		$$buf = '';
$Initialized->{_buf} = '';		$Initialized->{_buf} = '';
my $body = qq{Redirecting to <a href="%s">%s</a>.};		my $body = qq{Redirecting to <a href="%s">%s</a>.};
$body = errmsg($body, $attr->{href}, $attr->{href});		$body = errmsg($body, $attr->{href}, $attr->{href});
#::logDebug("bouncing...body=$body");		#::logDebug("bouncing...body=$body");
$::Pragma->{download} = 1;		$::Pragma->{download} = 1;
::response($body);		::response($body);
$Vend::Sent = 1;		$Vend::Sent = 1;
		$self->{ABORT} = 1;
$self->{SEND} = 1;		$self->{SEND} = 1;
return 1;		return 1;
}		}
elsif($tag eq 'goto') {		elsif($tag eq 'goto') {
return 1 if resolve_if_unless($attr);		return 1 if resolve_if_unless($attr);
if(! $args[0]) {		if(! $args[0]) {
$$buf = '';		$$buf = '';
$Initialized->{_buf} = '';		$Initialized->{_buf} = '';
$self->{ABORT} = 1		$self->{ABORT} = 1
if $attr->{abort};		if $attr->{abort};
End of changes. 1 change blocks.
0 lines changed or deleted		1 lines changed or added

---