view release on metacpan or  search on metacpan

inc/dist.spec.tt  view on Meta::CPAN

#!/bin/sh

if [ -x /usr/lib/rpm/redhat/find-requires ] ; then
FINDREQ=/usr/lib/rpm/redhat/find-requires
else
FINDREQ=/usr/lib/rpm/find-requires
fi

\$FINDREQ \$* | grep -v ^/usr/bin/env [% FOREACH filter IN rpm.filter_requires %]| grep -v [% filter %][% END %]
EOF
chmod +x %{__find_requires}

# filter provides, sub local-perl for ^perl
cat << EOF > %{__find_provides}
#!/bin/sh

if [ -x /usr/lib/rpm/redhat/find-provides ] ; then
FINDPRO=/usr/lib/rpm/redhat/find-provides
else
FINDPRO=/usr/lib/rpm/find-provides
fi

\$FINDPRO \$*
EOF
chmod +x %{__find_provides}

%build
if [ -d bin ]; then
  release-fix_shebang bin/*
fi
[% IF rpm.prefer_make_maker == 0 %]
if [ -e Build.PL ]; then
  perl Build.PL --install_path lib=%{acps_prefix}/lib/perl    \
                --install_path arch=%{acps_prefix}/lib/perl   \
                --install_path bin=%{acps_prefix}/bin         \

lib/Clustericious/Admin/Server.pm  view on Meta::CPAN

    }
  }

  if($payload->{files})
  {
    my $count = 1;
    foreach my $file (@{ $payload->{files} })
    {
      my $path = File::Spec->catfile( tempdir( CLEANUP => 1 ), $file->{name} );
      open my $fh, '>', $path;
      chmod oct($file->{mode}), $path if defined $file->{mode};
      binmode $fh;
      print $fh $file->{content};
      close $fh;
      my $env = $file->{env};
      $env = "FILE@{[ $count++ ]}" unless defined $env;
      $ENV{$env} = $path;
    }
  }
  
  if($payload->{dir})
  {
    my $root = $ENV{DIR} = tempdir( CLEANUP => 1 );
    
    foreach my $name (sort keys %{ $payload->{dir} })
    {
      my $dir = $payload->{dir}->{$name};
      next unless $dir->{is_dir};
      my $path = File::Spec->catdir($root, $name);
      mkdir $path;
      chmod oct($dir->{mode}), $path if defined $dir->{mode};
    }
    
    foreach my $name (sort keys %{ $payload->{dir} })
    {
      my $file = $payload->{dir}->{$name};
      next if $file->{is_dir};
      my $path = File::Spec->catfile($root, $name);
      open my $fh, '>', $path;
      chmod oct($file->{mode}), $fh if defined $file->{mode};
      binmode $fh;
      print $fh $file->{content};
      close $fh;
    }
  }

  $ENV{$_} = $payload->{env}->{$_} for keys %{ $payload->{env} };
  
  if(defined $payload->{stdin})
  {