From 28fb188d5c673f559bc91fefc5ea18a47017d88e Mon Sep 17 00:00:00 2001 From: jkeenan Date: Sun, 20 Nov 2011 09:55:28 -0500 Subject: [PATCH] [RT #36079] Convert ` to '. --- utils/h2ph.PL | 14 +++++++------- utils/h2xs.PL | 4 ++-- utils/libnetcfg.PL | 8 ++++---- utils/perlivp.PL | 48 ++++++++++++++++++++++++------------------------ 4 files changed, 37 insertions(+), 37 deletions(-) diff --git a/utils/h2ph.PL b/utils/h2ph.PL index e0b5e3a..a2d737b 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -96,7 +96,7 @@ while (defined (my $file = next_file())) { $t = ''; $tab = 0; - # $eval_index goes into ``#line'' directives, to help locate syntax errors: + # $eval_index goes into '#line' directives, to help locate syntax errors: $eval_index = 1; if ($file eq '-') { @@ -154,7 +154,7 @@ while (defined (my $file = next_file())) { $new = 1 if $new eq ''; - # Shunt around such directives as `#define FOO FOO': + # Shunt around such directives as '#define FOO FOO': next if $new =~ /^\s*&\Q$name\E\s*\z/; $new = reindent($new); @@ -658,12 +658,12 @@ sub next_file if ($opt_r) { expand_glob($file); } else { - print STDERR "Skipping directory `$file'\n"; + print STDERR "Skipping directory '$file'\n"; } } elsif ($opt_a) { return $file; } else { - print STDERR "Skipping `$file': not a file or directory\n"; + print STDERR "Skipping '$file': not a file or directory\n"; } } @@ -843,7 +843,7 @@ sub _extract_cc_defines my $allsymbols = join " ", @Config{'ccsymbols', 'cppsymbols', 'cppccsymbols'}; - # Split compiler pre-definitions into `key=value' pairs: + # Split compiler pre-definitions into 'key=value' pairs: while ($allsymbols =~ /([^\s]+)=((\\\s|[^\s])+)/g) { $define{$1} = $2; if ($opt_D) { @@ -920,7 +920,7 @@ is not specified, then links are skipped over. =item -h -Put ``hints'' in the .ph files which will help in locating problems with +Put 'hints' in the .ph files which will help in locating problems with I. In those cases when you B a B<.ph> file containing syntax errors, instead of the cryptic @@ -939,7 +939,7 @@ This is primarily used for debugging I. =item -Q -``Quiet'' mode; don't print out the names of the files being converted. +'Quiet' mode; don't print out the names of the files being converted. =back diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 6239f8f..6c41ea9 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -2093,8 +2093,8 @@ my $tests = @const_names ? 2 : 1; open EX, ">$testfile" or die "Can't create $ext$modpname/$testfile: $!\n"; print EX <<_END_; -# Before `make install' is performed this script should be runnable with -# `make test'. After `make install' it should work as `perl $modpname.t' +# Before 'make install' is performed this script should be runnable with +# 'make test'. After 'make install' it should work as 'perl $modpname.t' ######################### diff --git a/utils/libnetcfg.PL b/utils/libnetcfg.PL index 1f47c24..c6908f8 100644 --- a/utils/libnetcfg.PL +++ b/utils/libnetcfg.PL @@ -218,7 +218,7 @@ sub get_hostname print <<"EDQ"; *** ERROR: - Hostname `$host' does not seem to exist, please enter again + Hostname '$host' does not seem to exist, please enter again or a single space to clear any default EDQ @@ -684,9 +684,9 @@ $cfg{'inet_domain'} = ($ans =~ /(\S+)/)[0]; $msg = <new($libnet_cfg_out, "w") or - die "Cannot create `$libnet_cfg_out': $!"; + die "Cannot create '$libnet_cfg_out': $!"; print "Writing $libnet_cfg_out\n"; diff --git a/utils/perlivp.PL b/utils/perlivp.PL index 545d0f0..c2f0a11 100644 --- a/utils/perlivp.PL +++ b/utils/perlivp.PL @@ -65,8 +65,8 @@ while ($ARGV[0] =~ /^-/) { usage() if '?' =~ /\Q$flag/; usage() if 'h' =~ /\Q$flag/; usage() if 'H' =~ /\Q$flag/; - usage("unknown flag: `$flag'") unless 'HhPpVv' =~ /\Q$flag/; - warn "$0: `$flag' flag already set\n" if $opt{$flag}++; + usage("unknown flag: '$flag'") unless 'HhPpVv' =~ /\Q$flag/; + warn "$0: '$flag' flag already set\n" if $opt{$flag}++; } shift; } @@ -80,7 +80,7 @@ my $tests_total = 0; !NO!SUBS! -# We cannot merely check the variable `$^X' in general since on many +# We cannot merely check the variable '$^X' in general since on many # Unixes it is the basename rather than the full path to the perl binary. my $perlpath = ''; if (defined($Config{'perlpath'})) { $perlpath = $Config{'perlpath'}; } @@ -98,24 +98,24 @@ my \$useithreads = '$useithreads'; print OUT <<'!NO!SUBS!'; -print "## Checking Perl binary via variable `\$perlpath' = $perlpath.\n" if $opt{'p'}; +print "## Checking Perl binary via variable '\$perlpath' = $perlpath.\n" if $opt{'p'}; my $label = 'Executable perl binary'; if (-x $perlpath) { - print "## Perl binary `$perlpath' appears executable.\n" if $opt{'v'}; + print "## Perl binary '$perlpath' appears executable.\n" if $opt{'v'}; print "ok 1 $label\n"; $pass__total++; } else { - print "# Perl binary `$perlpath' does not appear executable.\n"; + print "# Perl binary '$perlpath' does not appear executable.\n"; print "not ok 1 $label\n"; $error_total++; } $tests_total++; -print "## Checking Perl version via variable `\$]'.\n" if $opt{'p'}; +print "## Checking Perl version via variable '\$]'.\n" if $opt{'p'}; !NO!SUBS! @@ -127,12 +127,12 @@ print OUT <<'!NO!SUBS!'; $label = 'Perl version correct'; if ($ivp_VERSION eq $]) { - print "## Perl version `$]' appears installed as expected.\n" if $opt{'v'}; + print "## Perl version '$]' appears installed as expected.\n" if $opt{'v'}; print "ok 2 $label\n"; $pass__total++; } else { - print "# Perl version `$]' installed, expected $ivp_VERSION.\n"; + print "# Perl version '$]' installed, expected $ivp_VERSION.\n"; print "not ok 2 $label\n"; $error_total++; } @@ -147,18 +147,18 @@ $tests_total++; @INC = grep { length && $_ ne '.' } split ' ', $perl_V; } -print "## Checking roots of the Perl library directory tree via variable `\@INC'.\n" if $opt{'p'}; +print "## Checking roots of the Perl library directory tree via variable '\@INC'.\n" if $opt{'p'}; my $INC_total = 0; my $INC_there = 0; foreach (@INC) { next if $_ eq '.'; # skip -d test here if (-d $_) { - print "## Perl \@INC directory `$_' exists.\n" if $opt{'v'}; + print "## Perl \@INC directory '$_' exists.\n" if $opt{'v'}; $INC_there++; } else { - print "# Perl \@INC directory `$_' does not appear to exist.\n"; + print "# Perl \@INC directory '$_' does not appear to exist.\n"; } $INC_total++; } @@ -184,11 +184,11 @@ foreach (qw(Config.pm ExtUtils/Installed.pm)) { $needed_total++; eval "require \"$_\";"; if (!$@) { - print "## Module `$_' appears to be installed.\n" if $opt{'v'}; + print "## Module '$_' appears to be installed.\n" if $opt{'v'}; $needed_there++; } else { - print "# Needed module `$_' does not appear to be properly installed.\n"; + print "# Needed module '$_' does not appear to be properly installed.\n"; } $@ = undef; } @@ -234,11 +234,11 @@ if (defined($Config{'extensions'})) { # Compilation failed in require at (eval 1) line 1. eval " require \"$_.pm\"; "; if (!$@) { - print "## Module `$_' appears to be installed.\n" if $opt{'v'}; + print "## Module '$_' appears to be installed.\n" if $opt{'v'}; $extensions_there++; } else { - print "# Required module `$_' does not appear to be properly installed.\n"; + print "# Required module '$_' does not appear to be properly installed.\n"; $@ = undef; } $extensions_total++; @@ -253,10 +253,10 @@ if (defined($Config{'extensions'})) { $@ = undef; eval " require \"$unnecessary.pm\"; "; if ($@) { - print "## Unnecessary module `$unnecessary' does not appear to be installed.\n" if $opt{'v'}; + print "## Unnecessary module '$unnecessary' does not appear to be installed.\n" if $opt{'v'}; } else { - print "# Unnecessary module `$unnecessary' appears to be installed.\n"; + print "# Unnecessary module '$unnecessary' appears to be installed.\n"; $extensions_there++; } } @@ -392,35 +392,35 @@ or not -v is thrown. =over 4 -=item * print "# Perl binary `$perlpath' does not appear executable.\n"; +=item * print "# Perl binary '$perlpath' does not appear executable.\n"; Likely to occur for a perl binary that was not properly installed. Correct by conducting a proper installation. -=item * print "# Perl version `$]' installed, expected $ivp_VERSION.\n"; +=item * print "# Perl version '$]' installed, expected $ivp_VERSION.\n"; Likely to occur for a perl that was not properly installed. Correct by conducting a proper installation. -=item * print "# Perl \@INC directory `$_' does not appear to exist.\n"; +=item * print "# Perl \@INC directory '$_' does not appear to exist.\n"; Likely to occur for a perl library tree that was not properly installed. Correct by conducting a proper installation. -=item * print "# Needed module `$_' does not appear to be properly installed.\n"; +=item * print "# Needed module '$_' does not appear to be properly installed.\n"; One of the two modules that is used by perlivp was not present in the installation. This is a serious error since it adversely affects perlivp's ability to function. You may be able to correct this by performing a proper perl installation. -=item * print "# Required module `$_' does not appear to be properly installed.\n"; +=item * print "# Required module '$_' does not appear to be properly installed.\n"; An attempt to C failed, even though the list of extensions indicated that it should succeed. Correct by conducting a proper installation. -=item * print "# Unnecessary module `bLuRfle' appears to be installed.\n"; +=item * print "# Unnecessary module 'bLuRfle' appears to be installed.\n"; This test not coming out ok could indicate that you have in fact installed a bLuRfle.pm module or that the C -- 2.7.4