We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 5259c8a commit 45e7f05Copy full SHA for 45e7f05
1 file changed
css2/bin/pextr
@@ -13,7 +13,7 @@
13
# <span class="propinst-name"><'name'></span>
14
#
15
# Ian Jacobs - ij@w3.org (Based on work by Arnaud Le Hors)
16
-# $Id: pextr,v 1.21 2002-08-21 11:45:14 bbos Exp $
+# $Id: pextr,v 1.22 2002-08-21 12:45:29 bbos Exp $
17
18
19
$PROGNAME = substr($0, rindex($0, "/") + 1);
@@ -171,7 +171,7 @@ while (/$blockst$patt;;$patt;;$patt;;$patt;;$patt;;$patt;;$patt;;$patt$blocket/s
171
my $lvl = $8;
172
my @names = split(/[, \t\n]+/, $props);
173
my $name = $names[0];
174
- if ($lvl =~ "\b$level\b") {
+ if ($lvl =~ /\b$level\b/) {
175
$output = "$path$name.srb";
176
print "\textracting $output\n";
177
open(output, "> $output");
0 commit comments