"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "wml_include/TheWML/Frontends/Wml/Protect.pm" between
wml-2.28.0.tar.xz and wml-2.30.0.tar.xz

About: WML (Website META Language) is an extensible Webdesigner’s off-line HTML generation toolkit.

Protect.pm  (wml-2.28.0.tar.xz):Protect.pm  (wml-2.30.0.tar.xz)
skipping to change at line 58 skipping to change at line 58
my ( $prolog, $arg, $body ) = ( $1, $2, $3 ); my ( $prolog, $arg, $body ) = ( $1, $2, $3 );
my $passes_str = '123456789'; my $passes_str = '123456789';
# unquote the attribute # unquote the attribute
$arg =~ s|(['"])(.*)\1\s*$|$2|; $arg =~ s|(['"])(.*)\1\s*$|$2|;
if ( $arg =~ m|pass=([0-9,-]*)|i ) if ( $arg =~ m|pass=([0-9,-]*)|i )
{ {
$passes_str = $1; $passes_str = $1;
$passes_str =~ s|,||g; $passes_str =~ s|,||g;
$passes_str = "1$passes_str" if $passes_str =~ m|^-|; $passes_str = "1$passes_str" if $passes_str =~ m|^-|;
$passes_str .= '9' if $passes_str =~ m|-$|; $passes_str .= '9' if $passes_str =~ m|-$|;
$passes_str =~ s|([0-9])-([0-9])|expandrange($1, $2)|sge; $passes_str =~ s|([0-9])-([0-9])|expandrange($1, $2)|sge;
} }
my $key = sprintf( "%06d", $self->_PROTECT_COUNTER ); my $key = sprintf( "%06d", $self->_PROTECT_COUNTER );
$self->_PROTECT_COUNTER( $self->_PROTECT_COUNTER + 1 ); $self->_PROTECT_COUNTER( $self->_PROTECT_COUNTER + 1 );
$self->_protect_storage->{$key} = { $self->_protect_storage->{$key} = {
SPEC => $passes_str, SPEC => $passes_str,
MAX => max( split( '', $passes_str ) ), MAX => max( split( '', $passes_str ) ),
ARG => $arg, ARG => $arg,
BODY => $body BODY => $body
}; };
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)