matz

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@858 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 4 insertions, 4 deletions

diff --git a/pack.c b/pack.c
index 2e1d5ec08b..7c60dde6c7 100644
--- a/pack.c
+++ b/pack.c
@@ -333,7 +333,7 @@ pack_pack(ary, fmt)
 #endif
 
 	if (ISSPACE(type)) continue;
-        if (*p == '_') {
+        if (*p == '_' || *p == '!') {
 	    char *natstr = "sSiIlL";
 
 	    if (strchr(natstr, type)) {
@@ -343,7 +343,7 @@ pack_pack(ary, fmt)
 		p++;
 	    }
 	    else {
-		rb_raise(rb_eArgError, "'_' allowed only after types %s", natstr);
+		rb_raise(rb_eArgError, "'%c' allowed only after types %s", *p, natstr);
 	    }
 	}
 	if (*p == '*') {	/* set data length */
@@ -1077,7 +1077,7 @@ pack_unpack(str, fmt)
 #endif
 	star = 0;
 	type = *p++;
-	if (*p == '_') {
+	if (*p == '_' || *p == '!') {
 	    char *natstr = "sSiIlL";
 
 	    if (strchr(natstr, type)) {
@@ -1087,7 +1087,7 @@ pack_unpack(str, fmt)
 		p++;
 	    }
 	    else {
-		rb_raise(rb_eArgError, "'_' allowed only after types %s", natstr);
+		rb_raise(rb_eArgError, "'%c' allowed only after types %s", *p, natstr);
 	    }
 	}
 	if (p >= pend)