[PATCH] perlcommunity.pod: add information about OSDC.fr

[p5sagit/p5-mst-13.2.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index 4c00651..015fcdf 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -522,8 +522,9 @@ PP(pp_open)
        IoFLAGS(GvIOp(gv)) &= ~IOf_UNTAINT;
 
        if (IoDIRP(io))
-           Perl_ck_warner(aTHX_ packWARN2(WARN_IO, WARN_DEPRECATED),
-                          "Opening dirhandle %s also as a file", GvENAME(gv));
+           Perl_ck_warner_d(aTHX_ packWARN2(WARN_IO, WARN_DEPRECATED),
+                            "Opening dirhandle %s also as a file",
+                            GvENAME(gv));
 
        mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
        if (mg) {
@@ -1917,7 +1918,7 @@ PP(pp_send)
                    DIE(aTHX_ "Offset outside string");
                }
                offset += blen_chars;
-           } else if (offset >= (IV)blen_chars) {
+           } else if (offset > (IV)blen_chars) {
                Safefree(tmpbuf);
                DIE(aTHX_ "Offset outside string");
            }
@@ -3829,8 +3830,9 @@ PP(pp_open_dir)
        goto nope;
 
     if ((IoIFP(io) || IoOFP(io)))
-       Perl_ck_warner(aTHX_ packWARN2(WARN_IO, WARN_DEPRECATED),
-                      "Opening filehandle %s also as a directory", GvENAME(gv));
+       Perl_ck_warner_d(aTHX_ packWARN2(WARN_IO, WARN_DEPRECATED),
+                        "Opening filehandle %s also as a directory",
+                        GvENAME(gv));
     if (IoDIRP(io))
        PerlDir_close(IoDIRP(io));
     if (!(IoDIRP(io) = PerlDir_open(dirname)))