[perl #41572][PATCH] Subclassing CGI::Pretty dies in ->new

[renee.baecker@smart-websolutions.de]

Attached is a small patch for CGI::Pretty.

Cheers,
Renee
---

renee.baecker@smart-websolutions.de

Smart-Websolutions André Windolph und Renée Bäcker GbR
Maria-Montessori-Str. 13
64584 Biebesheim

USt.-ID: DE 228 935 695

Telefon: 01803 - 278 25 51 98 (9 cent/Minute)
E-Mail: info@smart-websolutions.de

Perl-Magazin: http://foo-magazin.de
Perl-Nachrichten: http://perl-nachrichten.de
--- Pretty.pm.orig	2005-04-07 23:40:12.000000000 +0200
+++ Pretty.pm	2008-08-27 13:14:00.000000000 +0200
@@ -176,6 +176,13 @@
 }
 sub _reset_globals { initialize_globals(); }
 
+sub import {
+   my ($package) = @_;
+   
+   no strict 'refs';
+   ${ "$package\::AutoloadClass" } = 'CGI';
+}
+
 1;
 
 =head1 NAME

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---