From: Chris W. <la...@us...> - 2004-11-25 02:24:35
|
Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Observer In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26983/OpenInteract2/Observer Modified Files: AddDeliciousTags.pm Log Message: don't 'use' until necessary Index: AddDeliciousTags.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Observer/AddDeliciousTags.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** AddDeliciousTags.pm 25 Oct 2004 02:29:30 -0000 1.1 --- AddDeliciousTags.pm 25 Nov 2004 02:24:24 -0000 1.2 *************** *** 7,11 **** use OpenInteract2::Constants qw( :log ); use OpenInteract2::Context qw( CTX ); - use OpenInteract2::DeliciousTaggableObject; $OpenInteract2::Observer::AddDeliciousTags::VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); --- 7,10 ---- *************** *** 17,20 **** --- 16,21 ---- return unless ( $observation eq 'post save' ); + require OpenInteract2::DeliciousTaggableObject; + my $action_desc = join( '', '(from action/task: ', $action->name, '/', $action->task, ')' ); |