diff -Nurp Log-Log4perl-1.16/MANIFEST Log-Log4perl-1.16 copy/MANIFEST
--- Log-Log4perl-1.16/MANIFEST	2008-05-16 00:29:02.000000000 -0700
+++ Log-Log4perl-1.16 copy/MANIFEST	2008-05-23 21:37:15.000000000 -0700
@@ -125,6 +125,7 @@ t/052Utf8.t
 t/053Resurrect.t
 t/054Subclass.t
 t/055AppDestroy.t
+t/056DoubleUse.t
 t/compare.pl
 t/deeper1.expected
 t/deeper6.expected
Binary files Log-Log4perl-1.16/lib/.DS_Store and Log-Log4perl-1.16 copy/lib/.DS_Store differ
Binary files Log-Log4perl-1.16/lib/Log/.DS_Store and Log-Log4perl-1.16 copy/lib/Log/.DS_Store differ
diff -Nurp Log-Log4perl-1.16/lib/Log/Log4perl.pm Log-Log4perl-1.16 copy/lib/Log/Log4perl.pm
--- Log-Log4perl-1.16/lib/Log/Log4perl.pm	2008-05-16 00:24:06.000000000 -0700
+++ Log-Log4perl-1.16 copy/lib/Log/Log4perl.pm	2008-05-23 21:36:03.000000000 -0700
@@ -63,7 +63,7 @@ our $CHATTY_DESTROY_METHODS = 0;
 
 our $LOGDIE_MESSAGE_ON_STDERR = 1;
 our $LOGEXIT_CODE             = 1;
-our %IMPORT_CALLED;
+our %IMPORT_EASY_CALLED;
 
 ##################################################
 sub import {
@@ -74,8 +74,6 @@ sub import {
 
     my $caller_pkg = caller();
 
-    return 1 if $IMPORT_CALLED{$caller_pkg}++;
-
     my(%tags) = map { $_ => 1 } @_;
 
         # Lazy man's logger
@@ -115,9 +113,11 @@ sub import {
     }
 
         # Lazy man's logger
-    if(exists $tags{':easy'}) {
+    if(exists $tags{':easy'}) {{
         delete $tags{':easy'};
 
+        next if $IMPORT_EASY_CALLED{$caller_pkg}++;
+
             # Define default logger object in caller's package
         my $logger = get_logger("$caller_pkg");
         ${$caller_pkg . '::_default_logger'} = $logger;
@@ -174,7 +174,7 @@ sub import {
             CORE::warn(Log::Log4perl::Logger::callerline(join '', @_)) :
             exit $Log::Log4perl::LOGEXIT_CODE;
         };
-    }
+    }}
 
     if(exists $tags{':nowarn'}) {
         $Log::Log4perl::Logger::NON_INIT_WARNED = 1;
diff -Nurp Log-Log4perl-1.16/t/020Easy.t Log-Log4perl-1.16 copy/t/020Easy.t
--- Log-Log4perl-1.16/t/020Easy.t	2007-05-20 20:20:57.000000000 -0700
+++ Log-Log4perl-1.16 copy/t/020Easy.t	2008-05-23 22:20:53.000000000 -0700
@@ -22,7 +22,7 @@ BEGIN {
     if ($] < 5.006) {
         plan skip_all => "Only with perl >= 5.006";
     } else {
-        plan tests => 20;
+        plan tests => 34;
     }
 }
 
@@ -205,3 +205,15 @@ SKIP: {
 # Finally close
 ############################################################
 close IN;
+
+############################################################
+# Test that double use works
+############################################################
+package foobronglish;
+use Log::Log4perl;
+use Log::Log4perl ':easy';
+::ok exists &$_, "$_ after double use" for qw [
+    TRACE DEBUG INFO WARN ERROR FATAL ALWAYS
+    LOGCROAK LOGCLUCK LOGCARP LOGCONFESS
+    LOGDIE LOGEXIT LOGWARN
+];
diff -Nurp Log-Log4perl-1.16/t/056DoubleUse.t Log-Log4perl-1.16 copy/t/056DoubleUse.t
--- Log-Log4perl-1.16/t/056DoubleUse.t	1969-12-31 16:00:00.000000000 -0800
+++ Log-Log4perl-1.16 copy/t/056DoubleUse.t	2008-05-23 21:34:52.000000000 -0700
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+###################################################################
+# Make sure a double ‘use ':easy'’ statement doesn’t warn.
+###################################################################
+use Test::More tests => 1;
+my $warnings;
+$SIG{__WARN__} = sub { ++$warnings; };
+eval 'use Log::Log4perl qw(:easy)' for 1..2;
+
+is $warnings, undef, 'double use ":easy" shouldn\'t warn';
+