Changeset 2219

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.

Location:

trunk/gsdl/perllib/plugins

Files:

• BasPlug.pm (modified) (1 diff)
• HTMLPlug.pm (modified) (1 diff)
• TEXTPlug.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;

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -43 +43 @@
 use util;
 use parsargv;
-
-no warnings; # suppress warnings about redefined subroutines
 
 sub BEGIN {

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -30 +30 @@
 
 use BasPlug;
-
-no warnings; # suppress warnings about redefined subroutines
 
 sub BEGIN {