gist: 194803


  
    
      unicode-bug.pl #
    
    
      
      
        embed
        
      
      
      
      raw
    
  
  
  
    
      
        
          
            
            1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

          
          
            
              use warnings;
use strict;
 
{
    package MyText;
    use overload
      q("") => sub { $_[0]->{data} },
      fallback => 1;
}
 
{
    package main;
    my $text = bless(
        {
            'data' => "\x{3075}",
        },
        'MyText'
    );
    my $x = substr($text, 0, 1);
}
print "ok\n";
Public Clone URL:	git://gist.github.com/194803.git Give this clone URL to anyone. `git clone git://gist.github.com/194803.git gist-194803`
Embed All Files:	show embed