Change 21532 by [EMAIL PROTECTED] on 2003/10/25 10:03:18
Subject: Re: [perl #948] $, untieable?
From: Richard Clamp <[EMAIL PROTECTED]>
Date: Tue, 21 Oct 2003 00:02:49 +0100
Message-ID: <[EMAIL PROTECTED]>
Plus a small fix to t/TEST to recognize the added TODO test
as a TODO test.
Affected files ...
... //depot/perl/t/TEST#96 edit
... //depot/perl/t/op/tie.t#36 edit
Differences ...
==== //depot/perl/t/TEST#96 (xtext) ====
Index: perl/t/TEST
--- perl/t/TEST#95~21515~ Tue Oct 21 23:39:29 2003
+++ perl/t/TEST Sat Oct 25 03:03:18 2003
@@ -353,7 +353,7 @@
$seen_ok = 1;
if ($2 == $next) {
my($not, $num, $extra) = ($1, $2, $3);
- my($istodo) = $extra =~ /^\s*#\s*TODO/ if $extra;
+ my($istodo) = $extra =~ /#\s*TODO/ if $extra;
$istodo = 1 if $todo{$num};
if( $not && !$istodo ) {
==== //depot/perl/t/op/tie.t#36 (xtext) ====
Index: perl/t/op/tie.t
--- perl/t/op/tie.t#35~21039~ Thu Sep 4 21:13:17 2003
+++ perl/t/op/tie.t Sat Oct 25 03:03:18 2003
@@ -446,3 +446,34 @@
}
EXPECT
ok
+########
+
+# TODO [perl #948] cannot meaningfully tie $,
+package TieDollarComma;
+
+sub TIESCALAR {
+ my $pkg = shift;
+ return bless \my $x, $pkg;
+}
+
+sub STORE {
+ my $self = shift;
+ $$self = shift;
+ print "STORE set '$$self'\n";
+}
+
+sub FETCH {
+ my $self = shift;
+ print "FETCH\n";
+ return $$self;
+}
+package main;
+
+tie $,, 'TieDollarComma';
+$, = 'BOBBINS';
+print "join", "things", "up\n";
+EXPECT
+STORE set 'BOBBINS'
+FETCH
+FETCH
+joinBOBBINSthingsBOBBINSup
End of Patch.
