🔐 Sid Gifari File Manager Pro
v8.0.5 | 2026-06-14 13:38:51 | PHP 8.1.34
📂
/ (Root)
/
usr
/
share
/
perl5
/
vendor_perl
/
Pod
/
Simple
📍 /usr/share/perl5/vendor_perl/Pod/Simple
🔄 Refresh
✏️
Editing: Transcode.pm
Read Only
require 5; package Pod::Simple::Transcode; use strict; use vars qw($VERSION @ISA); $VERSION = '3.42'; BEGIN { if(defined &DEBUG) {;} # Okay elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; } else { *DEBUG = sub () {0}; } } foreach my $class ( 'Pod::Simple::TranscodeSmart', 'Pod::Simple::TranscodeDumb', '', ) { $class or die "Couldn't load any encoding classes"; DEBUG and print STDERR "About to try loading $class...\n"; eval "require $class;"; if($@) { DEBUG and print STDERR "Couldn't load $class: $@\n"; } else { DEBUG and print STDERR "OK, loaded $class.\n"; @ISA = ($class); last; } } sub _blorp { return; } # just to avoid any "empty class" warning 1; __END__
💾 Save Changes
❌ Cancel