[perl.git] branch blead, updated. v5.21.3-473-g7dc3b71

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/7dc3b71e0eb1edf0a7cedd966a76e358434bbae7?hp=baf4892673297219daaa9599eca2cccb6b00c46f>

- Log -----------------------------------------------------------------
commit 7dc3b71e0eb1edf0a7cedd966a76e358434bbae7
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Sat Sep 6 10:21:00 2014 -0700

    make_ext.pl: Typo in error message

M       make_ext.pl

commit 0435b3625faffc6aa224126ce45f7584856aeb30
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Fri Sep 5 21:58:31 2014 -0700

    t/uni/parser.t: Make a test more robust
    
    It was checking that *tèst returns a true value, which is somewhat
    redundant.  I think ‘is’ was meant, rather than ‘ok’, considering 
what
    was the test name (*main::tèst).

M       t/uni/parser.t

commit 466f50cc2f996522d40fa0ee032e6cc27fea3a77
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Fri Sep 5 20:30:01 2014 -0700

    op.h: Correct PERL_LOADMOD_IMPORT_OPS comment
    
    This description, added in ec6d81aba, is misleading.

M       op.h
-----------------------------------------------------------------------

Summary of changes:
 make_ext.pl    | 2 +-
 op.h           | 5 ++++-
 t/uni/parser.t | 2 +-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/make_ext.pl b/make_ext.pl
index 29e88a9..f19bf18 100644
--- a/make_ext.pl
+++ b/make_ext.pl
@@ -377,7 +377,7 @@ sub build_extension {
                }
 
                unless ($fromname) {
-                   die "For $mname tried @locations in in $ext_dir but can't 
find source";
+                   die "For $mname tried @locations in $ext_dir but can't find 
source";
                }
                ($value = $fromname) =~ s/\.pm\z/.pod/;
                $value = $fromname unless -e $value;
diff --git a/op.h b/op.h
index 6070326..1b247ce 100644
--- a/op.h
+++ b/op.h
@@ -687,7 +687,10 @@ struct loop {
 /* flags used by Perl_load_module() */
 #define PERL_LOADMOD_DENY              0x1     /* no Module */
 #define PERL_LOADMOD_NOIMPORT          0x2     /* use Module () */
-#define PERL_LOADMOD_IMPORT_OPS                0x4     /* use Module (...) */
+#define PERL_LOADMOD_IMPORT_OPS                0x4     /* import arguments
+                                                  are passed as a sin-
+                                                  gle op tree, not a
+                                                  list of SVs */
 
 #if defined(PERL_IN_PERLY_C) || defined(PERL_IN_OP_C) || 
defined(PERL_IN_TOKE_C)
 #define ref(o, type) doref(o, type, TRUE)
diff --git a/t/uni/parser.t b/t/uni/parser.t
index 7b958af..2437e3d 100644
--- a/t/uni/parser.t
+++ b/t/uni/parser.t
@@ -13,7 +13,7 @@ plan (tests => 52);
 use utf8;
 use open qw( :utf8 :std );
 
-ok *tèst, "*main::tèst", "sanity check.";
+is *tèst, "*main::tèst", "sanity check.";
 ok $::{"tèst"}, "gets the right glob in the stash.";
 
 my $glob_by_sub = sub { *ｍａｉｎ::method }->();

--
Perl5 Master Repository