! perl
# Copyright (C) 2001-2007, The Perl Foundation.
# $Id$

use strict;
use warnings;
use lib qw( lib );
use Parrot::Pmc2c::PMC::PrintTree;

my ( %action, %options, @pmc_include_paths );

my @args = @ARGV;

my $self = Parrot::Pmc2c::PMC::PrintTree->new(
    {
        include => [ qw( src/pmc src/dynpmc ) ],
        opt     => {},
        args    => \@args,
        bin     => q{},
    }
);

$self->print_tree();
exit;

#! perl
# Copyright (C) 2001-2007, The Perl Foundation.
# $Id$

use strict;
use warnings;
use lib qw( lib );
use Parrot::Pmc2c::PMC::PrintTree;

my ( %action, %options, @pmc_include_paths );

my @args = @ARGV;

my $self = Parrot::Pmc2c::PMC::PrintTree->new(
    {
        include => [ qw( src/pmc src/dynpmc ) ],
        opt     => {},
        args    => \@args,
        bin     => q{},
    }
);

$self->print_tree();
exit;

Correct typo causing syntax error.
Correct typo causing syntax error.

git-svn-id: 6e74a02f85675cec270f5d931b0f6998666294a3@28153 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
