This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The #21073 broke ext/B/t/o.t, retracting the #21073.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 8 Sep 2003 11:32:46 +0000 (11:32 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 8 Sep 2003 11:32:46 +0000 (11:32 +0000)
p4raw-id: //depot/perl@21082

ext/PerlIO/scalar/scalar.xs
ext/PerlIO/t/scalar.t

index 884cd58..0d56ecc 100644 (file)
@@ -23,7 +23,7 @@ PerlIOScalar_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg,
      * or the _name_ of the scalar
      */
     if (arg) {
-       if (SvROK(arg) && SvTYPE(SvRV(arg)) > SVt_NULL) {
+       if (SvROK(arg)) {
            s->var = SvREFCNT_inc(SvRV(arg));
            if (!SvPOK(s->var))
                (void)SvPV_nolen(s->var);
index 01e12b0..58ef97f 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
 }
 
 $| = 1;
-print "1..25\n";
+print "1..24\n";
 
 my $fh;
 my $var = "ok 2\n";
@@ -126,15 +126,3 @@ close $fh;
 { package P; sub TIESCALAR {bless{}} sub FETCH {"ok 24\n"} }
 tie $p, P; open $fh, '<', \$p;
 print <$fh>;
-
-# don't warn when writing to an undefined scalar
-
-{
-    use warnings;
-    my $ok = 1;
-    local $SIG{__WARN__} = sub { $ok = 0; };
-    open my $fh, '>', \my $scalar;
-    print $fh "foo";
-    close $fh;
-    print $ok ? "ok 25\n" : "not ok 25\n";
-}