Skip to content
Browse files

tweak qq delimiters to appease Vim syntax highlighting

  • Loading branch information...
1 parent 172b53f commit 556f10f1ec18ff5ccb55d1da2e239020f18b66b1 @rjbs committed Mar 31, 2012
Showing with 5 additions and 5 deletions.
  1. +5 −5 cron/cron-daily.pl
View
10 cron/cron-daily.pl
@@ -520,18 +520,18 @@ sub whois {
for (keys %$hash) {
HTML::Entities::encode($hash->{$_},'<>&');
}
- print FH qq{
+ print FH qq[
<dt><a href="$hash->{mlaid}"
>$hash->{mlaid}</a></dt><dd
>$hash->{comment}<p> </p></dd>
- };
+ ];
}
- print FH q{
+ print FH q[
</dl></body></html>
- };
+ ];
close FH;
if (compare '00whois.new', "$PAUSE::Config->{MLROOT}/../00whois.html") {
- report qq{copy 00whois.new $PAUSE::Config->{MLROOT}/../00whois.html\n\n};
+ report qq[copy 00whois.new $PAUSE::Config->{MLROOT}/../00whois.html\n\n];
my $whois_file = "$PAUSE::Config->{MLROOT}/../00whois.html";
xcopy '00whois.new', $whois_file;
PAUSE::newfile_hook($whois_file);

0 comments on commit 556f10f

Please sign in to comment.
Something went wrong with that request. Please try again.