minor code cosmetics (declare version first)
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 18 Oct 2009 18:40:03 +0000 (18:40 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Sun, 18 Oct 2009 18:40:03 +0000 (18:40 +0000)
mplayer.plp
mutt.plp
nethack.plp
readline.plp
source.plp
termcol.plp
vim.plp
vimperator.plp

index 9d7028d..5cd7d16 100644 (file)
@@ -1,8 +1,8 @@
 <(common.inc.plp)><:
-       use Shiar_Sheet::KeySigns qw(%sign);
-
        our $VERSION = 'v1.0';
 
+       use Shiar_Sheet::KeySigns qw(%sign);
+
        $header{content_type} = "text/html; charset=$sign{charset}";
 
 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
index cd90e86..bc8b447 100644 (file)
--- a/mutt.plp
+++ b/mutt.plp
@@ -1,8 +1,8 @@
 <(common.inc.plp)><:
-       use Shiar_Sheet::KeySigns qw(%sign);
-
        our $VERSION = 'v1.0';
 
+       use Shiar_Sheet::KeySigns qw(%sign);
+
        $header{content_type} = "text/html; charset=$sign{charset}";
 
 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
index c10c70c..bba68fb 100644 (file)
@@ -1,8 +1,8 @@
 <(common.inc.plp)><:
-       use Shiar_Sheet::KeySigns qw(%sign);
-
        our $VERSION = 'v1.0';
 
+       use Shiar_Sheet::KeySigns qw(%sign);
+
        $header{content_type} = "text/html; charset=$sign{charset}";
 
 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
index e1e3f10..7b90b39 100644 (file)
@@ -1,8 +1,8 @@
 <(common.inc.plp)><:
-       use Shiar_Sheet::KeySigns qw(%sign);  # dependant on $get{ascii}
-
        our $VERSION = 'v1.0';
 
+       use Shiar_Sheet::KeySigns qw(%sign);  # dependant on $get{ascii}
+
        $header{content_type} = "text/html; charset=$sign{charset}";
 
 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
index d874979..295f9e0 100644 (file)
@@ -62,8 +62,8 @@ else {
                my $tag = $_->[0] && ($TYPETAG{ $_->[0] } || 'span');
                my $arg = '';
                print "<$tag$arg class=\"sy-\l$_->[0]\">" if $tag;
-               if ($_->[0] eq 'Constant'
-               and $_->[1] =~ s{^(['"])(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) {
+               if (!$_->[0] || $_->[0] eq 'Constant'
+               and $_->[1] =~ s{^(['"]?)(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) {
                        printf '%s<a href="%s">%s</a>', $1, "/source/$2", $2;
                }
                if (!$_->[0] and $_->[1] =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) {
index 321ea63..0eb10b2 100644 (file)
@@ -1,8 +1,8 @@
 <(common.inc.plp)><:
-       use List::Util 'min';
-
        our $VERSION = 'v1.0';
 
+       use List::Util 'min';
+
 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
  "http://www.w3.org/TR/html4/loose.dtd">
 <html>
diff --git a/vim.plp b/vim.plp
index cd855bf..62587c0 100644 (file)
--- a/vim.plp
+++ b/vim.plp
@@ -1,8 +1,8 @@
 <(common.inc.plp)><:
-       use Shiar_Sheet::KeySigns qw(%sign);  # dependant on $get{ascii}
-
        our $VERSION = 'v1.2';
 
+       use Shiar_Sheet::KeySigns qw(%sign);  # dependant on $get{ascii}
+
        $header{content_type} = "text/html; charset=$sign{charset}";
 
 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
index 3bc4d3b..ca4e673 100644 (file)
@@ -1,8 +1,8 @@
 <(common.inc.plp)><:
-       use Shiar_Sheet::KeySigns qw(%sign);
-
        our $VERSION = 'v1.0';
 
+       use Shiar_Sheet::KeySigns qw(%sign);
+
        $header{content_type} = "text/html; charset=$sign{charset}";
 
 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"