On Thu, May 08, 2008 at 08:00:44AM +0300, Niko Tyni wrote:
> On Wed, May 07, 2008 at 08:01:55PM -0700, Matt Kraai wrote:
> > Package: perl-modules
> > Version: 5.8.8-12
> >
> > When I execute the attached script, it produces the following errors:
> >
> > > String found where operator expected at /tmp/plan line 16, near "case
> > > 'add'"
> > > (Do you need to predeclare case?)
> > > syntax error at /tmp/plan line 15, near ") {"
> > > Execution of /tmp/plan aborted due to compilation errors.
> >
> > Since seemingly unrelated things (e.g., removing a newline from one of
> > the here documents) eliminates the syntax error, I think this is a bug
> > in the Switch module.
>
> Hi Matt,
>
> I think you forgot the attachment.
Oops, sorry about that. Here it is.
--
Matt
#!/usr/bin/perl
use Switch;
sub create_tables {
my $connection;
$connection->foo(<<'EOS');
EOS
$connection->foo(<<'EOS');
EOS
}
switch (shift @ARGV) {
case 'add' {
}
}
