← Back to branch summary

~narazaka/kawari-perl/trunk

« back to all changes in this revision

Viewing changes to lib/Kawari/Script.pm

  • Committer: Narazaka
  • Date: 2012-05-25 15:46:18 UTC
  • mfrom: (5.2.16 dictionary)
  • Revision ID: info@narazaka.net-20120525154618-cdj4wqhe1abt1i28
merged dictionary

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Kawari/Script.pm
14
14
};
15
15
my $bra_match = qr/\$[({[]|[(\$"']/;
16
16
my $cket_match = {
17
 
        'plain' => qr/(?=[,\n])/,
 
17
        'plain' => qr/(?=[,\n]|$)/,
18
18
        'block' => qr/\)/,
19
19
        'cmd' => qr/[;)]/,
20
20
        'call' => qr/\}/,
100
100
                                return $post_bracket;
101
101
                        }
102
102
                }else{
103
 
                        die "Unmatch bracket.";
 
103
                        die "Unmatch bracket.\n",sprintf '%40s',$value;
104
104
                }
105
105
        }
106
106
}