[s2] remove "use constants" lines from S2 layer code

[fu]

[commit: http://hg.dwscoalition.org/s2/rev/e1fb01695dda]

http://bugs.dwscoalition.org/show_bug.cgi?id=3139

Remove constants; these are provided in the context.

Patch by kareila.

Files modified:

• S2/BackendPerl.pm

--------------------------------------------------------------------------------
diff -r e78c7b3accaf -r e1fb01695dda S2/BackendPerl.pm
--- a/S2/BackendPerl.pm	Fri Oct 08 18:21:15 2010 +0800
+++ b/S2/BackendPerl.pm	Fri Oct 22 23:30:16 2010 +0800
@@ -49,9 +49,6 @@ sub output {
     else {
         $io->writeln("package S2;");
         $io->writeln("use strict;");
-        $io->writeln("use constant VTABLE => 0;");
-        $io->writeln("use constant STATIC => 1;");
-        $io->writeln("use constant PROPS => 2;");
         $io->writeln("register_layer($this->{'layerID'});");
         my $nodes = $this->{'layer'}->getNodes();
         foreach my $n (@$nodes) {
--------------------------------------------------------------------------------