1427 sub foo {
1428   my $args = shift;
1429
1430   if ($args->{err}) {
1431     print "There is a problem : $args->{err}\n";
1432   }
1433
1434   if ($args->{src} eq "commit") {
1435     print "I've got my sources!\n";
1436     print "I'm committed!\n"
1437       if (!$args->{err});
1438   }
1439 }

##</code><code>##

Use of uninitialized value in string eq at ./pancho-ini line 1430.
I've got my sources!
I'm committed!