From 06345572c2129c1ded3e3890e44adee804d4e99b Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 21 May 2011 11:39:26 +0200
Subject: Code cleanup

---
 lib/App/Dthumb/Data.pm.PL | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'lib/App/Dthumb/Data.pm.PL')

diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL
index a0fb4f5..13b244b 100644
--- a/lib/App/Dthumb/Data.pm.PL
+++ b/lib/App/Dthumb/Data.pm.PL
@@ -13,7 +13,7 @@ opendir(my $share_dh, 'share');
 print {$out_fh} <DATA>;
 
 for my $file (readdir($share_dh)) {
-	if (substr($file, 0, 1) eq '.') {
+	if (substr($file, 0, 1) eq q{.}) {
 		next;
 	}
 
@@ -21,7 +21,7 @@ for my $file (readdir($share_dh)) {
 	my $content = do { local $/ = undef; <$fh> };
 	close($fh);
 
-	if ($file =~ qr{ \. (png | gif) $ }ox) {
+	if ($file =~ qr{ [.] (png | gif) $ }ox) {
 		$content = encode_base64($content);
 	}
 
@@ -67,12 +67,10 @@ This manual documents B<App::Dthumb::Data> version 0.2
 
 use strict;
 use warnings;
-use base 'Exporter';
 
 use Data::Section -setup;
 use MIME::Base64 qw(decode_base64);
 
-our @EXPORT_OK = ();
 our $VERSION = '0.2';
 
 
-- 
cgit v1.2.3