summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-10-05 21:04:13 +0200
committerNicholas Clark <nick@ccl4.org>2009-10-05 21:07:34 +0200
commit9f28b43c85ae4811b0768bb37378b21550f27c7d (patch)
tree21ead8c28946695c198f0b2027599f2f4383787a /perl.c
parent2dc296d24d23e7bc6c24e294afa31fe89ea1e548 (diff)
downloadperl-9f28b43c85ae4811b0768bb37378b21550f27c7d.tar.gz
In Perl_moreswitches(), merge 2 string constants in the code implementing -v.
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl.c b/perl.c
index 7a1db7c9c4..2c5128674d 100644
--- a/perl.c
+++ b/perl.c
@@ -3224,9 +3224,8 @@ Perl_moreswitches(pTHX_ const char *s)
#endif
PerlIO_printf(PerlIO_stdout(),
"\nThis is perl, %"SVf
- " built for %s",
- level,
- ARCHNAME);
+ " built for " ARCHNAME,
+ level);
SvREFCNT_dec(level);
}
#else /* DGUX */