work on antique perls again

Perl-Email-Project · Feb 3, 2015 · ecc0cdc · ecc0cdc
1 parent 6012bf3
commit ecc0cdc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 Release history for Email-Address
 
 {{$NEXT}}
+        - restore 5.8.x compatibility
 
 1.906     2015-02-03 16:48:11-05:00 America/New_York
         - the test suite tests parses more directly, which eliminates a number

diff --git a/t/quoting.t b/t/quoting.t
@@ -38,7 +38,7 @@ is(
 is($ea3->phrase, $phrase, "the phrase method returns the right thing");
 
 {
-    my $B = qq{\N{REVERSE SOLIDUS}};
+    my $B = chr 0x5C; # \
     my $phrase = qq{jack "$B" robinson};
     my $ea = Email::Address->new($phrase, 'jack@work.com');
     is $ea->phrase, $phrase, "phrase round trips via ->new";