Revision 592052f4
Von Sven Schöling vor etwa 12 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 163 | 163 |
if ($char eq $quote_chars[-1]) {
|
| 164 | 164 |
pop(@quote_chars); |
| 165 | 165 |
} elsif (length $quote_chars[-1] > 1 |
| 166 |
&& substr($quote_chars[-1], 0, 1) eq $char |
|
| 167 | 166 |
&& substr($_, $i, length $quote_chars[-1]) eq $quote_chars[-1]) {
|
| 168 | 167 |
$i += length $quote_chars[-1] - 1; |
| 169 | 168 |
$char = $quote_chars[-1]; |
| ... | ... | |
| 176 | 175 |
if (($char eq "'") || ($char eq "\"")) {
|
| 177 | 176 |
push(@quote_chars, $char); |
| 178 | 177 |
|
| 179 |
} elsif ($char eq '$' # start of dollar quoting |
|
| 180 |
&& ($tag_end = index($_, '$', $i + 1)) > -1 # ends on same line
|
|
| 181 |
&& (do { substr($_, $i + 1, $tag_end - $i - 1); 1 }) # extract tag
|
|
| 182 |
&& $tag =~ /^ (?= [A-Za-z_] [A-Za-z0-9_]* | ) $/x) { # tag is identifier
|
|
| 178 |
} elsif ($char eq '$' # start of dollar quoting
|
|
| 179 |
&& ($tag_end = index($_, '$', $i + 1)) > -1 # ends on same line
|
|
| 180 |
&& (do { $tag = substr($_, $i + 1, $tag_end - $i - 1); 1 }) # extract tag
|
|
| 181 |
&& $tag =~ /^ (?= [A-Za-z_] [A-Za-z0-9_]* | ) $/x) { # tag is identifier
|
|
| 183 | 182 |
push @quote_chars, $char = '$' . $tag . '$'; |
| 184 | 183 |
$i = $tag_end; |
| 185 | 184 |
} elsif ($char eq ";") {
|
Auch abrufbar als: Unified diff
SL::DBUpgrade bug fixes