NetWare changeover from Watcom to Codewarrior, from C Aditya.

[p5sagit/p5-mst-13.2.git] / lib / overload.t

diff --git a/lib/overload.t b/lib/overload.t
index f98f0c4..cf49eac 100644 (file)
--- a/lib/overload.t
+++ b/lib/overload.t
@@ -729,7 +729,7 @@ else {
   $iter = iterator->new(5);
   test scalar <${iter}>, '5';  # 176
   $acc = '';
-  $acc .= " $out" while $out = <${iter}>;
+  $acc .= " $out" while $out = <$iter>;
   test $acc, ' 4 3 2 1 0';     # 177
 }
 {
@@ -1046,5 +1046,25 @@ $r = Foo->new(0);
 
 test(($r || 0) == 0); # 222
 
+package utf8_o;
+
+use overload 
+  '""'  =>  sub { return $_[0]->{var}; }
+  ;
+  
+sub new
+  {
+    my $class = shift;
+    my $self =  {};
+    $self->{var} = shift;
+    bless $self,$class;
+  }
+
+package main;
+
+
+my $utfvar = new utf8_o 200.2.1;
+test("$utfvar" eq 200.2.1); # 223
+
 # Last test is:
-sub last {222}
+sub last {223}