if ($len_name =~ /^length\( \s* (\w+) \s* \)\z/x) {
$len_name = "XSauto_length_of_$1";
$islength = 1;
- die "Default value on length() argument: `$_'"
+ die "Default value on length() argument: '$_'"
if length $default;
}
if (length $pre or $islength) { # Has a type
#gcc -Wall: if an xsub has PPCODE is used
#it is possible none of ST, XSRETURN or XSprePUSH macros are used
- #hence `ax' (setup by dXSARGS) is unused
+ #hence 'ax' (setup by dXSARGS) is unused
#XXX: could breakup the dXSARGS; into dSP;dMARK;dITEMS
#but such a move could break third-party extensions
print Q(<<"EOF") if $PPCODE;
# ENDHANDLERS
EOF
if ($self->check_keyword("CASE")) {
- $self->blurt("Error: No `CASE:' at top of function")
+ $self->blurt("Error: No 'CASE:' at top of function")
unless $self->{condnum};
$_ = "CASE: $_"; # Restore CASE: label
next;
}
last if $_ eq "$END:";
- $self->death(/^$self->{BLOCK_re}/o ? "Misplaced `$1:'" : "Junk at end of function ($_)");
+ $self->death(/^$self->{BLOCK_re}/o ? "Misplaced '$1:'" : "Junk at end of function ($_)");
}
print Q(<<"EOF") if $self->{except};
#file name argument. If the wrong qualifier is used, it causes breakage with
#C++ compilers and warnings with recent gcc.
#-Wall: if there is no $Full_func_name there are no xsubs in this .xs
- #so `file' is unused
+ #so 'file' is unused
print Q(<<"EOF") if $Full_func_name;
##if (PERL_REVISION == 5 && PERL_VERSION < 9)
# char* file = __FILE__;
sub CASE_handler {
my $self = shift;
$_ = shift;
- $self->blurt("Error: `CASE:' after unconditional `CASE:'")
+ $self->blurt("Error: 'CASE:' after unconditional 'CASE:'")
if $self->{condnum} && $self->{cond} eq '';
$self->{cond} = $_;
trim_whitespace($self->{cond});
my $self = shift;
# parse paragraph
- $self->death("Error: Unterminated `#if/#ifdef/#ifndef'")
+ $self->death("Error: Unterminated '#if/#ifdef/#ifndef'")
if !defined $self->{lastline} && $self->{XSStack}->[-1]{type} eq 'if';
@{ $self->{line} } = ();
@{ $self->{line_no} } = ();
PageName|ModuleName|ProgramName|URL...
is the name of a piece of documentation that you want to look at. You
may either give a descriptive name of the page (as in the case of
- `perlfunc') the name of a module, either like `Term::Info' or like
- `Term/Info', or the name of a program, like `perldoc', or a URL
+ 'perlfunc') the name of a module, either like 'Term::Info' or like
+ 'Term/Info', or the name of a program, like 'perldoc', or a URL
starting with http(s).
BuiltinFunction
is the name of a perl function. Will extract documentation from
- `perlfunc'.
+ 'perlfunc'.
FAQRegex
is a regex. Will search perlfaq[1-9] for and extract any
die
"When using Perldoc to format with $formatter_class, you have to\n"
. "specify -T or -dsomefile$ext\n"
- . "See `$me perldoc' for more information on those switches.\n"
+ . "See '$me perldoc' for more information on those switches.\n"
;
}
}
open(PFUNC, "<", $perlfunc) # "Funk is its own reward"
or die("Can't open $perlfunc: $!");
- # Functions like -r, -e, etc. are listed under `-X'.
+ # Functions like -r, -e, etc. are listed under '-X'.
my $search_re = ($self->opt_f =~ /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/)
? '(?:I<)?-X' : quotemeta($self->opt_f) ;
}
if (!@$pod) {
die sprintf
- "No documentation for perl function `%s' found\n",
+ "No documentation for perl function '%s' found\n",
$self->opt_f
;
}
}
close(INFAQ);
}
- die("No documentation for perl FAQ keyword `$search_key' found\n")
+ die("No documentation for perl FAQ keyword '$search_key' found\n")
unless @$pod;
return;
} STMT_END
/*
- * Bless `s' in `p', via a temporary reference, required by sv_bless().
+ * Bless 's' in 'p', via a temporary reference, required by sv_bless().
* "A" magic is added before the sv_bless for overloaded classes, this avoids
* an expensive call to S_reset_amagic in sv_bless.
*/
cxt->entry = 1; /* No recursion yet */
/*
- * The `hseen' table is used to keep track of each SV stored and their
+ * The 'hseen' table is used to keep track of each SV stored and their
* associated tag numbers is special. It is "abused" because the
* values stored are not real SV, just integers cast to (SV *),
* which explains the freeing below.
#endif
/*
- * The `hclass' hash uses the same settings as `hseen' above, but it is
+ * The 'hclass' hash uses the same settings as 'hseen' above, but it is
* used to assign sequential tags (numbers) to class names for blessed
* objects.
*
#endif
/*
- * The `hook' hash table is used to keep track of the references on
+ * The 'hook' hash table is used to keep track of the references on
* the STORABLE_freeze hook routines, when found in some class name.
*
* It is assumed that the inheritance tree will not be changed during
cxt->hook = newHV(); /* Table where hooks are cached */
/*
- * The `hook_seen' array keeps track of all the SVs returned by
+ * The 'hook_seen' array keeps track of all the SVs returned by
* STORABLE_freeze hooks for us to serialize, so that they are not
* reclaimed until the end of the serialization process. Each SV is
* only stored once, the first time it is seen.
* Look into the cache to see whether we already have determined
* where the routine was, if any.
*
- * NOTA BENE: we don't use `method' at all in our lookup, since we know
+ * NOTA BENE: we don't use 'method' at all in our lookup, since we know
* that only one hook (i.e. always the same) is cached in a given cache.
*/
/*
* known_class
*
- * Lookup the class name in the `hclass' table and either assign it a new ID
- * or return the existing one, by filling in `classnum'.
+ * Lookup the class name in the 'hclass' table and either assign it a new ID
+ * or return the existing one, by filling in 'classnum'.
*
* Return true if the class was known, false if the ID was just generated.
*/
* Signal the tie-ing magic by setting the object type as SHT_EXTRA
* (since we have only 2 bits in <flags> to store the type), and an
* <extra> byte flag will be emitted after the FIRST <flags> in the
- * stream, carrying what we put in `eflags'.
+ * stream, carrying what we put in 'eflags'.
*/
obj_type = SHT_EXTRA;
switch (SvTYPE(sv)) {
* $object->STORABLE_freeze($cloning);
*
* but we don't have the $object here. For instance, if $object is
- * a blessed array, what we have in `sv' is the array, and we can't
+ * a blessed array, what we have in 'sv' is the array, and we can't
* call a method on those.
*
* Therefore, we need to create a temporary reference to the object and
CROAK(("Could not serialize item #%d from hook in %s", i, classname));
#endif
/*
- * It was the first time we serialized `xsv'.
+ * It was the first time we serialized 'xsv'.
*
* Keep this SV alive until the end of the serialization: if we
* disposed of it right now by decrementing its refcount, and it was
sv_seen:
/*
- * Dispose of the REF they returned. If we saved the `xsv' away
+ * Dispose of the REF they returned. If we saved the 'xsv' away
* in the array of returned SVs, that will not cause the underlying
* referenced SV to be reclaimed.
*/
* We don't know how to store the item we reached, so return an error condition.
* (it's probably a GLOB, some CODE reference, etc...)
*
- * If they defined the `forgive_me' variable at the Perl level to some
+ * If they defined the 'forgive_me' variable at the Perl level to some
* true value, then don't croak, just warn, and store a placeholder string
* instead.
*/
#endif
/*
- * Store `sv' and everything beneath it, using appropriate routine.
+ * Store 'sv' and everything beneath it, using appropriate routine.
* Abort immediately if we get a non-zero status back.
*/
* Common code for store operations.
*
* When memory store is requested (f = NULL) and a non null SV* is given in
- * `res', it is filled with a new SV created out of the memory buffer.
+ * 'res', it is filled with a new SV created out of the memory buffer.
*
- * It is required to provide a non-null `res' when the operation type is not
+ * It is required to provide a non-null 'res' when the operation type is not
* dclone() and store() is performed to memory.
*/
static int do_store(
RLEN(idx);
/*
- * Fetch classname in `aclass'
+ * Fetch classname in 'aclass'
*/
sva = av_fetch(cxt->aclass, idx, FALSE);
I32 idx;
/*
- * Fetch index from `aclass'
+ * Fetch index from 'aclass'
*/
if (flags & SHF_LARGE_CLASSLEN)
}
/*
- * If we don't have an `av' yet, prepare one.
+ * If we don't have an 'av' yet, prepare one.
* Then insert the frozen string as item [0].
*/
/*
* Prepare context.
*
- * Data is loaded into the memory buffer when f is NULL, unless `in' is
+ * Data is loaded into the memory buffer when f is NULL, unless 'in' is
* also NULL, in which case we're expecting the data to already lie
* in the buffer (dclone case).
*/
* Check whether input source is tainted, so that we don't wrongly
* taint perfectly good values...
*
- * We assume file input is always tainted. If both `f' and `in' are
+ * We assume file input is always tainted. If both 'f' and 'in' are
* NULL, then we come from dclone, and tainted is already filled in
* the context. That's a kludge, but the whole dclone() thing is
* already quite a kludge anyway! -- RAM, 15/09/2000.
cxt = real_context; /* And we need this temporary... */
/*
- * Now, `cxt' may refer to a new context.
+ * Now, 'cxt' may refer to a new context.
*/
ASSERT(!cxt->s_dirty, ("clean context"));
projects / platform / upstream / perl.git / commitdiff