diff options
-rwxr-xr-x | bin/prep | 2 | ||||
-rw-r--r-- | lib/prep/html/util.pl | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -47,7 +47,7 @@ if ($file) { | |||
47 | } else { | 47 | } else { |
48 | my $save = $/; | 48 | my $save = $/; |
49 | undef $/; | 49 | undef $/; |
50 | $data = <>; | 50 | $data = <<>>; |
51 | $/ = $save; | 51 | $/ = $save; |
52 | } | 52 | } |
53 | 53 | ||
diff --git a/lib/prep/html/util.pl b/lib/prep/html/util.pl index 87e8de5..318e1c2 100644 --- a/lib/prep/html/util.pl +++ b/lib/prep/html/util.pl | |||
@@ -125,6 +125,7 @@ sub do_fn { | |||
125 | my $t = shift; | 125 | my $t = shift; |
126 | # this hack isn't actually needed: | 126 | # this hack isn't actually needed: |
127 | # $t =~ tr:[]:(): if $VAR{LQFB}; | 127 | # $t =~ tr:[]:(): if $VAR{LQFB}; |
128 | $t = '<a href="'.$t.'">'.$t.'</a>' if $t =~ /^http\S+$/; | ||
128 | $fn[++$FN] = $t; | 129 | $fn[++$FN] = $t; |
129 | # using () instead of [] so that i can mousepaste it into LQFB | 130 | # using () instead of [] so that i can mousepaste it into LQFB |
130 | return "<sup class='fn'>(<a name='bn$FN' href='#fn$FN'>$FN</a>)</sup>"; | 131 | return "<sup class='fn'>(<a name='bn$FN' href='#fn$FN'>$FN</a>)</sup>"; |