Changeset 17179

Timestamp:

07/30/07 20:44:29 (16 months ago)

Author:

bcmb

Message:

Update smart links and correct 1 test script.

Location:

t

Files:

• operators/quoting.t (modified) (12 diffs)
• syntax/interpolation/strings.t (modified) (1 diff)

t/operators/quoting.t

@@ -81 +81 @@
 };
 
-{ # non interpolating single quotes with nested parens L<S02/Literals/That is () have no special significance>
+# L<S02/Literals/That is () have no special significance>
+{ # non interpolating single quotes with nested parens
     my @q = ();
     @q = (q ( ($foo $bar)));
@@ -88 +89 @@
 };
 
-{ # q() is bad L<S02/Literals/Which is mandatory for parens>
+# L<S02/Literals/Which is mandatory for parens>
+{ # q() is bad
     my @q;
     sub q { @_ }
@@ -95 +97 @@
 };
 
-{ # adverb variation L<S02/Literals/:q>
+# L<S02/Literals/:q>
+{ # adverb variation
     my @q = ();
     @q = (q:q/$foo $bar/);
@@ -116 +119 @@
 };
 
-{ # interpolating quotes L<S02/Literals/same as qq>
+# L<S02/Literals/qq:>
+{ # interpolating quotes
     my @q = ();
         @q = qq/$foo $bar/;
@@ -130 +134 @@
 };
 
-{ # adverb variation L<S02/Literals/:qq>
+# L<S02/Literals/:qq>
+{ # adverb variation
     my @q = ();
     @q = q:qq/$foo $bar/;
@@ -137 +142 @@
 };
 
-{ # \qq[] constructs interpolate in q[] L<S02/Literals/using the \\qq>
+# L<S02/Literals/using the \qq>
+{ # \qq[] constructs interpolate in q[]
     my( @q1, @q2, @q3, @q4 ) = ();
     @q1 = q[$foo \qq[$bar]];
@@ -172 +178 @@
 };
 
-{ # angle brackets L<S02/Literals/the qw quote operator bracketed form>
+# L<S02/Literals/quote operator now has a bracketed form>
+{ # angle brackets
     my @q = ();
     @q = <$foo $bar>;
@@ -180 +187 @@
 };
 
-{ # angle brackets L<S02/Literals/the qw quote operator bracketed form>
+{ # angle brackets
     my @q = ();
     @q = < $foo $bar >;
@@ -247 +254 @@
 };
 
-{ # qw, interpolating, shell quoting L<S02/Literals/respects quotes in a shell-like fashion>
+# L<S02/Literals/respects quotes in a shell-like fashion>
+{ # qw, interpolating, shell quoting
     my (@q1, @q2) = ();
     my $gorch = "foo bar";
@@ -262 +270 @@
 };
 
-{ # qq:to L<S02/Literals/Heredocs are no longer written>
+# L<S02/Literals/Heredocs are no longer written>
+{ # qq:to
     my @q = ();
 
@@ -276 +285 @@
 };
 
-{ # q:to indented L<S02/Literals/Here docs allow optional whitespace>
+# L<S02/Literals/Heredocs allow optional whitespace>
+{ # q:to indented
     my @q = ();
 
@@ -320 +330 @@
 };
 
-{ # L<S02/Literals/"Pair" notation is also recognized inside>
+# L<S02/Literals/"Pair" notation is also recognized inside>
+{
   # <<:Pair>>
     diag "XXX: pair.perl is broken atm so these tests may be unreliable";

t/syntax/interpolation/strings.t

@@ -34 +34 @@
 eval( q[is("$number {my $number=2} {$number}", '1 2 1', 'original number
 still available in closure after local version in closure: works' );] );
-is("$(my $x = 2) $x", '2 2', 'Variable should interpolate and still be available in the outer scope.');
-is("$(my $x = 2)" ~ $x, '22', 'Variable should interpolate and still be available in the outer scope.')
+eval( q[is("$(my $x = 2) $x", '2 2', 'Variable should interpolate and still be available in the outer scope.');] );
+eval( q[is("$(my $x = 2)" ~ $x, '22', 'Variable should interpolate and still be available in the outer scope.');] );
 
 # L<S02/Names and Variables/form of each subscript>