Changeset 1647 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Base.pm

Timestamp:

Sep 27, 2012, 2:28:28 PM (12 years ago)

Author:

Bruno Cornec

Message:

• Render File::Temp and Pod::Usage optional, in order to support partly old perl versions (5.00.5 at least) such as on RH6.2, so that the Base.pm module can be used in such a VE/VM

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (3 diffs)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -18 +18 @@
 use Cwd;
 use File::Path;
-use File::Temp qw(tempdir);
 use Data::Dumper;
 use Time::localtime qw(localtime);
-use Pod::Usage;
 use English;
 use POSIX qw(locale_h);
@@ -386 +384 @@
 $filehandle = \*STDOUT if ($exit_status == 0);
 
-pod2usage(  -message => $pbsynmsg,
+eval {
+    require Pod::Usage;
+    Pod::Usage->import();
+};
+if ($@) {
+    # No Pod::Usage found not printing usage. Ole perl only
+} else {
+    pod2usage(  -message => $pbsynmsg,
             -exitval => $exit_status,
             -verbose => $verbose_level,
             -output  => $filehandle );
 }
+}
 
 =item B<pb_temp_init>
@@ -403 +409 @@
     $ENV{'TMPDIR'}="/tmp";
 }
-$ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'}, CLEANUP => 1 );
+
+# Makes this function compatible with perl 5.005x
+eval {
+    require File::Temp;
+    File::Temp->import("tempdir");
+};
+if ($@) {
+    # File::Temp not found, harcoding stuff
+    # Inspired by http://cpansearch.perl.org/src/TGUMMELS/File-MkTemp-1.0.6/File/MkTemp.pm 
+    # Copyright 1999|2000 Travis Gummels.  All rights reserved.  
+    # This may be used and modified however you want.
+    my $template = "pb.XXXXXXXXXX";
+    my @template = split //, $template;
+    my @letters = split(//,"1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ");
+    for (my $i = $#template; $i >= 0 && ($template[$i] eq 'X'); $i--){
+        $template[$i] = $letters[int(rand 52)];
+    }
+    undef $template;
+    $template = pack "a" x @template, @template;
+    pb_mkdir_p("$ENV{'TMPDIR'}/$template");
+} else {
+    $ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'}, CLEANUP => 1 );
+}
 }