Make the -A switch work without an assertion name.

by Salvador Fandiño.

p4raw-id: //depot/perl@18843

1 files changed, 4 insertions, 4 deletions

diff --git a/perl.c b/perl.c
index 869c66666c..b6386b93e8 100644
--- a/perl.c
+++ b/perl.c
@@ -2332,17 +2332,17 @@ Perl_moreswitches(pTHX_ char *s)
 	return s;
     case 'A':
 	forbid_setid("-A");
+	if (!PL_preambleav)
+	    PL_preambleav = newAV();
 	if (*++s) {
-	    SV *sv=newSVpv("use assertions::activate split(/,/,q{",0);
+	    SV *sv = newSVpvn("use assertions::activate split(/,/,q{",37);
 	    sv_catpv(sv,s);
 	    sv_catpv(sv,"})");
 	    s+=strlen(s);
-	    if(!PL_preambleav)
-		PL_preambleav = newAV();
 	    av_push(PL_preambleav, sv);
 	}
 	else
-	    Perl_croak(aTHX_ "No space allowed after -A");
+	    av_push(PL_preambleav, newSVpvn("use assertions::activate",24));
 	return s;
     case 'M':
 	forbid_setid("-M");	/* XXX ? */