git.shiar.nl / sheet.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: 639fdc8)
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 patch | blob | history
mutt.plp patch | blob | history
nethack.plp patch | blob | history
readline.plp patch | blob | history
source.plp patch | blob | history
termcol.plp patch | blob | history
vim.plp patch | blob | history
vimperator.plp patch | blob | history

diff --git a/mplayer.plp b/mplayer.plp
index 9d7028d8d0fa461ed744a5d82929275f73f8c5b9..5cd7d160fd6671a7a3cb927352e0281df499daea 100644 (file)
--- a/mplayer.plp
+++ b/mplayer.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"
diff --git a/mutt.plp b/mutt.plp
index cd90e86e4f79f19a686b5d34f2155adb6c5a6d69..bc8b4474b4a1f96b1a40bf88ae15ed4db4fe126d 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"
diff --git a/nethack.plp b/nethack.plp
index c10c70cfd2bb81a3fa80ae5c36bf4747afa4bd1a..bba68fbddd22b3283496197f291b7e95dd021159 100644 (file)
--- a/nethack.plp
+++ b/nethack.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"
diff --git a/readline.plp b/readline.plp
index e1e3f109b21255801a9ed11284c215257cdf5297..7b90b3936540c5e9ed03f2de65a098c1bcacc68a 100644 (file)
--- a/readline.plp
+++ b/readline.plp
@@ -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"
diff --git a/source.plp b/source.plp
index d87497988eb120811232f86b0b0fafd1dfafa37e..295f9e068ec295cedda2577dd306f4b91ec5d831 100644 (file)
--- a/source.plp
+++ b/source.plp
@@ -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])//) {
diff --git a/termcol.plp b/termcol.plp
index 321ea63ab4828999f8b24af5951094fb11abe18f..0eb10b2dd259bc699ac9612615fe5925b91d7bed 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -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 cd855bf32131f8e3391be9d48e1c2eb2595f1ca2..62587c0ab324ce6b9b751e19fe98a6031abffdb5 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"
diff --git a/vimperator.plp b/vimperator.plp
index 3bc4d3b6f2604ddc1936cee45dd8b0feecba91cc..ca4e673768d7def98da9ac4b3a5f3fc7ceeda26a 100644 (file)
--- a/vimperator.plp
+++ b/vimperator.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"
sheet.shiar.nl - software cheat sheets