diff options
| author | jkeenan <jkeenan@cpan.org> | 2011-11-19 19:15:23 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 16:27:13 -0800 |
| commit | 6dfee1ec62c64d7afe8ced4650596dd9e7f71a63 (patch) | |
| tree | 5a09d0082801ea6bacdf65936ea94dc0d12253ca /dist/Cwd | |
| parent | e38ccfd9be3e341e4872a41a8378e174156b05a1 (diff) | |
| download | perl-6dfee1ec62c64d7afe8ced4650596dd9e7f71a63.tar.gz | |
[RT #36079] Convert ` to '.
Diffstat (limited to 'dist/Cwd')
| -rw-r--r-- | dist/Cwd/Cwd.xs | 8 | ||||
| -rw-r--r-- | dist/Cwd/t/rel2abs2rel.t | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/dist/Cwd/Cwd.xs b/dist/Cwd/Cwd.xs index d55c318073..539311662c 100644 --- a/dist/Cwd/Cwd.xs +++ b/dist/Cwd/Cwd.xs @@ -36,7 +36,7 @@ * products derived from this software without specific prior written * permission. * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS "AS IS" AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE @@ -96,11 +96,11 @@ bsd_realpath(const char *path, char resolved[MAXPATHLEN]) } /* - * Iterate over path components in `left'. + * Iterate over path components in 'left'. */ while (left_len != 0) { /* - * Extract the next path component and adjust `left' + * Extract the next path component and adjust 'left' * and its length. */ p = strchr(left, '/'); @@ -186,7 +186,7 @@ bsd_realpath(const char *path, char resolved[MAXPATHLEN]) /* * If there are any path components left, then * append them to symlink. The result is placed - * in `left'. + * in 'left'. */ if (p != NULL) { if (symlink[slen - 1] != '/') { diff --git a/dist/Cwd/t/rel2abs2rel.t b/dist/Cwd/t/rel2abs2rel.t index 0959d574b9..0d684f195c 100644 --- a/dist/Cwd/t/rel2abs2rel.t +++ b/dist/Cwd/t/rel2abs2rel.t @@ -58,10 +58,10 @@ sub sayok{ print "# Checking manipulations of \$^X=$^X\n"; my $perl = safe_rel($^X); -is( sayok($perl), "ok\n", "`$perl rel2abs2rel$$.pl` works" ); +is( sayok($perl), "ok\n", "'$perl rel2abs2rel$$.pl' works" ); $perl = File::Spec->rel2abs($^X); -is( sayok($perl), "ok\n", "`$perl rel2abs2rel$$.pl` works" ); +is( sayok($perl), "ok\n", "'$perl rel2abs2rel$$.pl' works" ); $perl = File::Spec->canonpath($perl); is( sayok($perl), "ok\n", "canonpath(rel2abs($^X)) = $perl" ); |