Changeset 2219 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2001-03-21T15:01:08+12:00 (23 years ago)

Author:

sjboddie

Message:

Had another go at suppressing the "subroutine redefined" warnings as
"no warnings" doesn't work on older versions of perl. Now use the
$SIG{WARN} variable to do the job instead.

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -25 +25 @@
 
 package BasPlug;
+
+# suppress the annoying "subroutine redefined" warning that various
+# plugins cause under perl 5.6
+$SIG{__WARN__} = sub {warn($_[0]) unless ($_[0] =~ /Subroutine\s+\S+\sredefined/)};
+
 use Kea;
 use parsargv;